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LA GUIA LOTUS PARA UTILIZAR SYMPHONY 

es un libro que le enseñará paso a paso, y de 
una forma muy práctica cómo utilizar este 
programa. 

LA GUIA LOTUS contiene: 

— Cómo crear y manejar ficheros 

— Descripción detallada de las facilidades 
que ofrecen las ventanas de SYMPHONY. 

— Apéndice que cubre las aplicaciones adi- 
cionales que van incluidas en el programa. 

— Un índice detallado y un vocabulario don- 
de fácilmente podrá encontrar cualquier 
tema que necesite. 
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Si deseas colaborar en MSX remite tus 
artículos o programas a Bravo Murillo 
377. 5° A 28020 Madrid Los programas 
deberán estar grabados en cassette y los 
artículos mecanografiados 

A efectos de remuneración, se analiza 
cada colaboración aisladamente, estu 
diando su complejidad y calidad 




Pasadas las Navidades y las distintas ferias habidas durante 
estas fechas, hemos podido comprobar el lento pero irresis- 
tible ascenso del estándar MSX. 
Nuevas aplicaciones, ordenadores más potentes y completos, 
programas de gestión dignos de un PC y un sin fin de novedades 
han sido las notas más características de este final de año 1986. 
No cabe la menor duda que el año finalizado, ha marcado una 
pauta y una tendencia que era inevitable. Por un lado, la bajada de 
precios al aparecer nuevos ordenadores, ha sido una de las notas 
más importante para todos los usuarios Por otro lado, el nuevo gi- 
ro que algunos fabricantes han dado a su política de mercado, co- 
mo el desarrollo y comercialización de compatibles PC, pone de 
manifiesto lo que podemos esperar de ello en un futuro aún algo 
lejano. 

Sin embargo, mientras unos se dedican con verdaderos es- 
fuerzos a hacerse con una parte del pastel de los compatibles (al 
fin y al cabo, un PC es un PC, y si es de IBM mejor que mejor), los 
fabricantes de MSX continúan aportando importantes novedades 
al estándar. De hecho, uno de los programas más comercializa- 
dos de IBM, el dBASE II, ya tiene versión para MSX (ver crítica en la 
página 29). Con ello, se abre una puerta hasta la fecha cerrada, la 
de los programas de aplicación para la pequeña empresa. 

Efectivamente, con programas como ese y con un ordenador 
MSX de la II generación (debido a que incorporan la unidad de 
disco de 3,5 pulgadas, algunos con 720K), se puede empezar a 
pensar en controlar un pequeño negocio, sin que por ello se pier- 
da imagen, algo que se suele pensar con demasiada ligereza en 
cuanto vemos a alguien trabajar con un ordenador doméstico. Pe- 
ro esto es sólo una de las novedades más destacadas, ya que si 
nos vamos a Holanda o Alemania, países en donde MSX tiene un 
mercado muy importante, nos encontraremos con que ya existe 
disco duro Winchester para MSX. Por otro lado, en Japón, Toshiba 
comercializa un CD ROM de reducidísimas dimensiones, también 
para MSX, lo que viene a reflejar el imparable ascenso que el es- 
tándar está teniendo. 

¡¡Hasta el mes que viene!! 
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Software. Más programas pa- 
ra la ocasión. Este mes destapa- 
mos el tarro de las esencias de 
ERBE, Philips, Idealogic y SERMA. 






Libros. «Forth. Anatomía de un 
lenguaje inteligente» y «MSX Len- 
guaje Máquina», dos libros útiles y 
con una orientación muy práctica. 



Noticias. VNU absorbe Hay- 
den. Nuevo ordenador doméstico 
de Investrónica. Programas ingle- 
ses para MSX... 



Lenguaje Gráfico GML. 

Todo lo explicado sobre las carac- 
terísticas gráficas de los MSX es 
poco, cuando no se conoce a fon- 
do el potente lenguaje gráfico de 
que disponemos. 





Diseño de Sprites. un arti- 
culo preparado para ordenadores 
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BASIC: introducir datos 
desde el teclado y desde 
un fichero secuencial. 

Manejar datos es el fin de cual- 
quier programa, pero ¿cómo ha- 
cerlo desde un soporte externo? 



48 



El Generador de Sonido. 

No podía faltar este artículo para 
los usuarios del SVI-31 8/328. Con 
él, comprenderán muchas de las 
funciones del chip de sonido así 
como del controlador. 



í 



\ 



» v o 



de la II generación, con un progra- 
ma completo que permite la crea- 
ción, diseño y manejo de sprites. 




Programa: Desensam- Compro, vendo, cambio. 



blador. otra versión, esta vez 
más sencilla, de una importante 
utilidad. 



Vuestras ofertas e intercambios 
también tienen su sección. . 
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Código Máquina. Hasta ios 

procesos más sencillos se vuel- 
ven complicados cuando hay que 
programarlos. Seguro que no 
pensaba que multiplicar fuera tan 
difícil. 



66 



Rincón del Lector. Donde 

todas vuestras dudas hallarán la 
solución. 
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Nuevo Inves 
Spectrum + 



Investrónica presenta el nuevo In- 
ves Spectrum +. Este ordenador ha 
sido desarrollado íntegramente por 
Investrónica, empresa líder en el de- 
sarrollo y lanzamiento de productos 
basados en la aplicación práctica 
de Alta Tecnología. 

El nuevo Inves Spectrum +, es el 
ordenador que posee una de las 
mejores relaciones calidad/precio 
del mercado. Incorpora una placa 




totalmente rediseñada, con la que 
se logran unas notables mejoras. 

Otra importante novedad en el In- 
ves Spectrum + es la salida directa 
para joystick.sin necesidad deacol- 



VNU absorbe 
Hayden 




VNU, el más importante grupo 
editorial holandés, que participa con 
un 50 por ciento en el capital social 
de Publmformática, ha suscrito un 
principio de acuerdo para adquirir 
la norteamericana Hayden Publis- 
fiing. 

Hayden edita, entre otras publica- 
ciones, Electronic Design, Microwa- 
ves & RF, Computer Decisions y Per- 
sonal Computing, asi como la guia 
directorio Gold Book. Hayden está 
considerada como una de las más 
importantes editoriales en los cam- 
pos de la electrónica y la informáti- 
ca, con unos ingresos de 60 millo- 
nes de dólares en 1986. La absor- 
ción, que incluye -290 empleados, 
será un hecho antes de fin de año. 

Asi, Hayden pasa a formar parte 
de VNU Business Press Group, ya 
poseedora de destacadas revistas 
informáticas en tel Remo Unido, Ho- 
landa y Bélgica, y partícipe en gru- 
pos editoriales españoles, france- 
ses, australianos y asiáticos. Tras la 
adquisición de Hayden, la división 
de Prensa Especializada del grupo 
VNU contará con unos ingresos 



anuales de 1 50 millones de dólares. 

Electronic Design es una revista 
quincenal especializada en electró- 
nica, con una circulación de 
142.000 ejemplares, de los que el 
1 6 por ciento se venden fuera de Es- 
tados Unidos. Es la más importante 
del mundo en su género y está clasi- 
ficada en séptimo lugar en USA, en 
cuanto a ingresos por publicidad. 

Microwaves & RF, dirigida a inge- 
nieros y jefes de proyecto, se encua- 
dra en el mercado de las radioco- 
municaciones de alta frecuencia, 
tanto en la industria privada como 
en el área militar. Su venta, mensual, 
es de 50.000 ejemplares y es la pu- 
blicación líder en su campo. 

El Gold Book, por su parte, es una 
guía-directorio diseñada por y para 
ingenieros con una venta anual de 
120.000 ejemplares. 

A su vez, Computer Decisions es- 
tá dirigida a informáticos profesio- 
nales y su circulación quincenal es 
de 175.000 ejemplares, lo cual le 
proporciona una posición relevante 
en un sector muy atractivo del mer- 
cado. 

Finalmente, Personal Computing 
tiene 500.000 ejemplares de tirada, 
de los que el 90 por ciento corres- 
ponde a suscripciones. Esta revista 
se centra en aplicaciones de gestión 
para ordenadores personales. 
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par ningún interface. Es totalmente 
compatible con todo el software y 
periféricos de Spectrum y Spectrum 
+, con más de 1 5.000 títulos de soft- 
ware, entre los que se pueden en- 






Londres 
con afecto 



Asi parece ser. Ya que desde 
esas tierras lejanas nos envía, la em- 
presa Mirrorsoft, dos programas pa- 
ra MSX. Spitfire 40 y Dynamite Dan, 
son los nuevos títulos que se unirán 
a la creciente ola de programas pa- 
ra MSX. Ambos vienen en cassette, y 




contrar, programas: 

- Educativos. 

- Utilidades. 

- Juegos clásicos. 

- Juegos de Destreza. 

Al Inves Spectrum +, se le pueden 
conectar los periféricos más diver- 
sos, como: impresora, lápiz óptico, 
data tablet, ratón, sintetizador de 
voz, modems y acopladores acústi- 
cos, etc. 

El Inves Spectrum + se entretga 
con. manual de instrucciones en 
castellano, explicando detallada- 
mente cómo sacar el máximo parti- 
do de todas sus características. 



con una buena presentación. 

Es importante este hecho, puesto 
que muesta el lento avance del es- 
tándar en aquél país, coto particular 
de caza para Amstrad y Spectrum, 
enemigos muy importantes con los 
que se enfrenta en esas tierras. 

De Dynamite Dan, poco se puede 
decir. Es un programa que ha esca- 
lado hasta las primeras posiciones 
(versión Spectrum) de las listas de 
super-ventas. Sin embargo, Spitfire 
40, es un simulador de vuelo con di- 
versas opciones y sólo apto para 
frustrados pilotos de combate. 
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No podían faltar las novedades 
de Anaya, empresa que parece no 
tener techo. En este fin de año, se 
han comercializado nuevos produc- 
tos, los cuales vienen a engrosar la 
amplia biblioteca de libros dedica- 
dos a aplicaciones con el ordena- 
dor. 

«Cálculo Numérico» es una obra 
dedicada a aquellos lectores in- 
quietos que deseen aprender el 
Cálculo Numérico, y desarrollar 
aplicaciones en BASIC para tal fin. 
Está orientado hacia las necesida- 
des de una amplia gama de inge- 
nieros, estudiantes y científicos que 
quieren resolver problemas prácti- 
cos mediante un ordenador. 

Por otro lado, «El Libro del MS- 
DOS», trata en profundidad al MS- 
DOS, el sistema operativo del IBM 
PC (tambie del MSX). Ha sido escrito 
por programadores de Microsoft, 
empresa que desarrolló el conocido 
sistema operativo. Estructurado co- 
mo un manual de aprendizaje y re- 
ferencia, está dividido en tres partes: 
introducción y ejemplos de uso del 
sistema operativo; tratamiento com- 
pleto sobre el manejo del MS-DOS y 
sección de referencia. 

Por último, «El IBM PC a fondo», 
es una obra en la cual se recogen 
las técnicas más depuradas de tra- 
bajo con el IBM PC hasta el momen- 
to, y hace una descripción del fun- 
cionamiento interno del msimo, 
centrándose particularmente en el 
hardware de la máquina más que en 
su programación. 

En conjunto, forman un bloque 
muy importante e interesante, nece- 
sario en cualquier biblioteca técni- 
ca. 



Lenguaje 
Gráfico 




I sistema MSX dispone de 
una potente herramienta 
para realizar dibujos libre- 
mente, es decir, sin indicación 
previa del tipo o figura deseados. 

Como es natural la mezcla de 
GML con el resto de instrucciones 
ya definidas como UNE, CIRCLE,, 
PAINT, etc., proporcionará geomé- 
tricamente estadística, gestión e 
incluso arte, un conjunto muy efi- 
ciente. 

Veremos pues, un resumen de 
todas las instrucciones generales 
en primer lugar y después con- 
cluiremos con un amplio desarro- 
llo del GML 

Sabemos que SCREEN significa 
pantalla y lo empleamos así: 
Ver figura 1 

La unidad gráfica es el pixel pre- 
sentado en cualquier de las 
49.152 coordenadas correspon- 




dientes a la malla que forman 256 
filas (x) y 1 92 columnas (y) a color 
elegido entre los 1 6 de que dispo- 
nemos. Por lo tanto un pixel viene 
determinado por su situación en 
la pantalla y su color. (Horizontal, 
Vertical y Color). 

Esto constituye la alta definición 
y comporta: 

X (desde hasta 255) 
Y (desde hasta 191) 

una sola de las dos sería incom- 
pleta para la «inteligencia del or- 
denador; pero el color si no se in- 
dica se toma el que esté usándose 
en ese momento. 

Como veremos a base de pixel 
a pixel se podrían formar toda cla- 
se de figuras: libres, geométricas, 
mallas, cuadrículas pero demos- 
traremos que son muy laboriosas, 
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lentas en el desarrollo y por ello 
poco eficaces. 

Para situar un pixel en la coor- 
denada deseada debemos indi- 
car la pantalla, específica de la de- 
finición que corresponda para que 
manifieste un punto: 
Ver figura 2 

Para un color diferente del ac- 
tual bastará colocar una coma 
después del paréntesis derecho y 
a continuación el número que co- 
rresponda (0/15). 

LAS PANTALLAS GRAFICAS 
NO SON PERMANENTES COMO 
LAS DE TEXTO, POR ELLO DEBE- 
MOS EMPLEAR UN MEDIO DE FI- 
JARLAS TEMPORAL O PERMA- 
NENTEMENTE. 

En este caso lo hacemos con un 
bucle de tiempo 5000. Como los 
bordes de la pantalla varían entre 
monitores y aparatos de TV y en 
estos últimos en casi cada marca 
hay que ajusfarlos como más con- 
venga. Para mayor seguridad de- 
jaremos 1 pixels por borde, que- 
dando: 

Desde 1 hasta 245 para X 
Desde 1 hasta 1 80 para Y 
Ver figura 3 
10 Pantalla (SVI la 1). 
20 Bucle de apertura para orde- 
nada y. 
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ggBggg ? »0» 1,1,0- 



0- Texto 

1- Texto y 
Spritea 

2- Gráficos 

256/192 

> Grafio os 
64/48 



0- 3PRITS 8/8 Normal 

1- - « «i Ampliado 

2- " 16/16 Normal 

dosle 



1- Sonido teclas 



0- Sin sonido 



" Ampliado 
doble 



1- Cassette 
normal 

2- Cassette 

rápido 



0- Impresora 
MSX 

1/255- " 
no MSX 



30 Idem para la abscisa x con 
pasos de 10 en 10. Se puede va- 
riar el salto a 4 - 20 - 40 - 80... Pro- 
bad varias veces con distintos nú- 
meros. 

40 Clave para el dibujo. Como 
es punto a punto su configuración 
se realiza muy despacio. Ya se ve- 



Figura 1 

rán otros sistemas más rápidos. 

50 Cierre de ambos bucles (20 y 
30). 

60 Bucle de apertura abscisa X. 

70 Bucle de apertura ordenada 
Y. 

80 Como 40. 



Como 50 (relativas a 60 y 
salir emplear 



90 
70). 

1 1 Tope. Para 
CONTROL/STOP. 




El MSX «recuerda la última or- 
denada y abscisa». En el caso de 
no indicar origen se toma X=0, Y= 
al margen superior izquierda de 
la pantalla. 

La posibilidad de emplear un 
proceso punto a punto por co- 
mando directo es, más bien didác- 
tica, pero interesante para trabajos 
de programación y su síntesis es: 

P S E T (X, Y), C 
algoritmo en el que X e Y forman la 
coordenada de cualquier punto 
dentro de los límites establecidos 
en columnas/filas y C el color en- 
tre los existentes en MSX. (Este úl- 
timo de no especificarse se em- 
plea automáticamente el de pri- 
mer plano). 

Se dispone también de un co- 
mando PRESET muy parecido al 
anterior con una diferencia sola- 



3CB&SS 2 t P3BTC 128,96) I POIT-0T 05000 t HBXTT^ 



Pantalla de alta 
resolución(*n SVI la 1) 



coordenada 
x-128 7-96 

Figura 2 



Bucle de tiempo 
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MODELO 1 o 



Cuadrícula en parámetros de PSibTx 



10 


SCRBSN 2 




20 


FOfi I - 10 TO 


190 


30 


FOR J - 10 TO 


250 STSP 10 


40 


PSkT(J ,1) 




50 


NEXT J,I 




60 


FOR I - 10 TO 


250 


70 


F01 J - 10 TO 


190 STfiP 12 


80 


PSBT(l,j) 




90 


NSXT J f I 




1 10 


GOTO 110 






Figura 3 



mente relativa al tratamiento del 
color: 

C = color de fonro para PRESET 

y el algoritmo es idéntico al de 
PSET: 

PRESET (X, Y), C 
Por lógica si primero se escribe 



L I N 1 



(*o » Y Q ) - (X¡ , T f ), C, HF 



LINEA. COORDENADA ORIGEN / FINAL COLO! RECTANGULO RELLENO 



Figura 4 



MOLtíLO 20 






10 SCREEN 2 




20 FOI I - iv 70 2 50 STEP 10 




50 LIHB(l,10) - (1,180) 




40 NSXT 




50 FOI j - 10 TO 180 STSP 10 




60 LINE (10,J) - (290, J) 




70 NSXT 




80 GOTO 80 





Figura 5 



un PSET y a continuación un PRE- 
SET con las mismas X e Y, simula- 
rá un borrado, ya que sustituye el 
color de primer plano por el de 
• fondo: 

10 SCREEN 2 

20 FOR l=80TO 160 

30 PSET(I,90) 

40 NEXT 

50 FOR J=80TO 160 
60 PRESET(J,90) 
70 NEXT 
80 GOTO 20 

En primer lugar se inscriben 
puntos de izquierda a derecha 
más o menos en el centro de la 
pantalla y a continuación se «bo- 
rran» en el mismo sentido. Líneas 
30, para lo primero y 60 para lo se- 
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CI1CL1 


* ( *o> *<,)» 1, C, P, F f B 


Circunferencia 
Circulo 
Curva 


i 

Coordenada 

posioión 

centro 


ladlo 


Color 


Inioio Final 
ore ación 
arcos 


le 1 ación 
para 
•lipa* 



gundo. La lina 80 reenvía a la 20 
para permitir la repetición del ci- 
clo. Para verlo más lentamente in- 
troducir entre las líneas 40 y 50 un 
bucle de tiempo. 

Condiciones 

En muchas ocasiones da la im- 
presión que un comando no tiene 
utilidad aparente. Sus posibilida- 
des depende del análisis avanza- 



Figura 6 

do del caso. Veamos: 

P O I N T (X,Y) 
que significa el aspecto de un pi- 
xel (color). 

Si suponemos que la pantalla 
está compuesta en su totalidad de 
azul, pero sin ninguna inscripción: 

10 SCREEN 2 

20 A = POINT &55,92) 

30 SCREEN 



MOSBLO 3» 




10 


SCHEEK 2 


20 


FOR I - TO 200 STEP 20 


30 


CIRCLE (30 4- I, 20), 18 


40 


HBXT 


50 


FOR I - TO 60 STEP 3 


60 


CIRCLB (70, 130), I 


70 


NBXT 


80 


FOR I - 5 TO 1 STEP - .5 


90 


CIRCLB (200, 130), 50 t , , , 1/1 


100 


NEXT 


110 


FO1T-0 TO 1000» NSXTT 


120 


CLSa GOTO 20 



Figura 7 



40 PRINTA 
50 END 

y ejecutamos este simple progra- 
ma, cuya principal línea es la 20, 
quedará impreso el número 4 en 
¡la pantalla. Este número corres- 
ponde al azul, que es el color que 
existía en toda la pantalla y por lo 
tanto en uno cualquiera de sus 
puntos. 

¿Para qué sirve? Supongamos 
que en una zona determinada de 
la pantalla está una figura, línea o 
punto del color C, cuando otra fi- 
gura en movimiento penetre en la 
zona: 

Si el color de un punto o zona es 

hacer 

Es decir: 

IF POINT (X,Y) = n THEN z 

La representación de n sirve pa- 
ra cualquier color de a 1 5 de to- 
da la pantalla y z significa la opera- 
ción a realizar. Si la coordenada 
de POINT sobrepasa de 255 para 
las X y de 191 para las Y el valor 
resultante s —1. Así: 

10 SCREEN 2 

20 A = POINT(300,520) 

30 SCREEN 

40 PRINTA 

50 END 

Al ejecutarlo dará —1 . 



Geometría gráfica 

Como se expone al principio 
vamos a comentar los métodos 
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principales para figuras geométri- 
cas. 

En primer lugar: 

Ver figura 4 
Por medio de esta instrucción 
se obtienen toda clase de líneas, 
rectas, figuras rectangulares, rec- 
tángulos y la posibilidad de relle- 
narlos. 

Ver figura 5 

10 Pantalla 2 (en SVI la 1). 

20 y 50 Bucles para repetir las 
líneas 30 y 60 respectivamente. 

30 y 60 Trazado de líneas que 
dan como resultado una cuadricu- 
la. 

80 Cierre en goto infinito que 
puede abrirse a voluntad por me- 
dio de CONTROL/SOTP. 

Es muy interesante comparar el 
modelo 1 y el 2 para medir más o 
menos la velocidad de ejecución. 

En lugar de 10 en los STEP de 



las líneas 20 y 50 pruébese con 5, 
2, etc. con lo cual se aumentará o 
disminuirá el entramado. La con- 
fección de este tipo de dibujo en 
contra del efectuado por medio de 
PSET exclusivamente mejora sen- 
siblemente sobre todo en cuanto a 
velocidad de ejecución. Sin em- 
bargo, aún puede mejorarse. 

CIRCLE 

Seguimos con el resto de co- 
mandos como indicábamos al 
principio y conviene resaltar que 
pueden situarse en la pantalla 
conjuntamente, pero teniendo la 
precaución de no montarlos por 
sus vértices o tangencialmente, ya 
que esto da lugar a veces a efectos 
no deseados. Como es lógico 
cuando se deseen específica y 
consecuentemente estos efectos 
el método de prueba es el único 
que aconsejamos. 





La fórmula de las figuras curvas 
en general se refleja por medio de: 

20 CIRCLE(1 27,90), 65„„ 1.333 

por ejemplo, pero es imprescindi- 
ble anteponer una SCREEN de di- 
bujo: 

10 SCREEN 2 

y para dejar fijo el dibujo hasta la 



g il l 




(fl) Mueve (Sin traao) (í)Mueve X, Y (0-+255, 0-»1Q1) 
(Ñ) Mueve y vuelve al punto original 

(s) Beoala ( 0-*255 relaoiónt s/4 ) (o) color (0-*l5) 


VERTICAL HORIZONTAL 


DIAGONAL 


DERECHA IZQUIERDA 


k(¡jj) ARRIBA 
^® ABAJO 
— ► DERECHA (?) 

IZQUIERDA (¿) 




ARRIBA 

^^f) abajo 

ARRIBA (?) 
ABAJO (g) 



Figura 8 
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en portada 



actuación de CONTROL/STOP: 

30 GOTO 30 

El coeficiente 1 .333 debe variar- 
se según la forma deseada y esto 
es indicativo en cada caso. Por 
ello la fórmula general se expone 
así: 

Ver figura 6 

Para corregir la diferencia entre 
TV/monitor y coordenadas se 
puede variar adecuadamente el 



punto E. En el ejemplo clave ante- 
rior — 1 .333—. 

Ver figura 7 

10 Pantalla alta definición (en 
SVI 318/328 la 1). 

20, 50 y 80 Bucles diversos. 

30 Círculos iguales en distintas 
posiciones. 

60 Círculos concéntricos en la 
misma posición central. 

90 Elipses concéntricas o casi 
concéntricas. 



MODELO 4 8 



10 COLOI 5, 15, 15i DRAW"A0"i SCriEEN 2 
20 FOR S - 10 TO 255 STEP 5 

}0 DRAW m M 20,171| 3 - Bf C2URDL" 
40 NEXT 

50 FOH B - 255 TO 10 STEP -5 

¿0 DfiAW " M 245» 10 I 3 - B| C8DLUH " 

70 NEXT 

80 FOR B - 10 TO 255 STEP 5 
90 DHAW " m 20, 10f S - Ej C4DKUL" 
100 NEXT 

110 FOR S - 255 TO 10 STEP -5 

120 DRAW " m 245,171> 3 -E| C10ULDR» 

130 NEXT 

140 POR I - 3 TO STEP -1 

150 DRAW » m 125, 86| CU5D1OL5U10 A - I|" 
160 FON - TO 5001 NBXTT 
170 NEXT 
180 GOTO 180 



Para salir de la repetición sin fin: 
CONTROL/STOP 

DRAW (dibujo libre) 

El lenguaje gráfico GML tiene 
como pantallas exclusivas las 2 y 
3, por ello hay que definir cual- 
quiera de las dos previamente al 
empleo de la macroinstrucción 
DRAW, que por cierto es en reali- 
dad una variable alfanumérica es- 
pecial. La palabra reservada será 
por lo tanto: 

DRAW " // " 



Draw indica dibujo o trazo y las 
comillas encierran una cadena o 
string. 

También se puede emplear: 
z$ = " " w$ = " " 



y luego: 



DRAW z$; w$ 



Este procedimiento permite una 
gran flexibilidad en dibujos parcia- 
les ya que se pueden tomar, por 
ejemplo, la z$ tres veces y la w$ 
una o viceversa. Así como tomar 
partes de un dibujo que luego se 
pueden recomponer libremente. 

Ya vimos la introducción de 
coordenadas por medio de PSET, 
pero en GML es mucho más inte- 
resante. 

DRAW "BM 127,80 " 



Figura 9 



indicando el origen del dibujo 
posterior como ahora veremos: 

Ver figura 8 

Cada letra se acompaña del nú- 
mero total de veces que se va a 
trazar la línea. Si fuera sólo una vez 
no es necesario escribirlo. 

DRAW "BM 100,50" Situación x= 
100 :: y=50 No hay trazo. 
DRAW " S100" Escala 25 (ya que 
100/4 = 25). 
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DRAW "U5R10" Angulo formado 
por 5 pixels hacia arriba 
y 10 hacia la derecha. 
DRAW "C12" Color verde (12). 

Con estos ejemplos podemos 
hacernos una idea de la construc- 
'ción de este especial lenguaje 
(GML). Ya veremos programas mo- 
delo después. 

La capacidad de este proceso 
podemos resumierla: 

1) Realiza cualquier dibujo. 

2) Puede saltar a otro punto 
distante sin trazo. 

3) Aumento o disminución del 
tamaño del dibujo (efectos 
zoom). 

4) Vuelta al punto inicial' para 
trazar otra vez (abanico). 

5) Colores de espacio limitado. 
Otros procedimientos pueden 

: superar al GML, desde luego fuera 
del propio sistema, pero este en- 
seña a manejar cadenas, panta- 
llas y crear nuestros propios pro- 
gramas de dibujo. 

Ver figura 9 

En las linas 30, 60 y 90 sé com- 
prende el empleo directo de 




DRAW en cuanto a las coordena- 
das de inicio de cada fase (BM). 

S = E; establece una referencia 
con respecto al bucle que corres- 
ponda según la escala que llega 
hasta 255 como se ve en cada 
FOR. 

C representa el color deseado. 
Mírese la tabla de DRAW. 

En la línea 150 se apunta: 
A = l¡ 

• (ES INDISPENSABLE EL PUNTO Y 
COMA ;) que corresponde exacta- 
mente a cada una de las 4 posicio- 
nes angulares a 3 de 90° de 
cualquier dibujo. Hemos incluido 
un bucle de tiempo en la línea 1 60 
para observar mejor este efecto. 
Es muy conveniente que preste- 
mos atención a este detalle para 
emplearlo convenientemente. 

PAINT 

Es totalmente imprescindible 
que PAINT: 

-SOLO SE PUEDE UTILIZAR EN 
DIBUJOS CERRADOS- 

Lleva la siguiente asignación: 
PAINT (X,Y), C 

en el que X e Y son la coordenada 
del inicio dentro del sector que se 
prenteda llenar y C el color que 
debe ser el mismo que las líneas o 
bordes que lo limiten. El color del 
borde sólo es utilizable en 
SCREEN 3 añadiéndolo a la citada 
asignación después de otra coma 
(,)• 

10 SCREEN 2 
20 CIRCLE (127,80), 50 
30 PAINT (127,80) 
40 GOTO 40 

Al no indicarse color alguno, se 
coloreará del mimo en que estu- 




viese en ese moento utilizado en 
primer plano. 

En el caso de CIRCLE puede 
sustituirse la linea 30 por: 

30 PAINT STEP (0,0) 

ya que desde el punto central 
siempre se está dentro del círculo. 
STEP instruye al programa para 
saltar desde la posición anterior X 
e Y hasta la indicada. Al ser (0,0) 
en este dado se que da en la pre- 
cedente, con lo cual se gana cierto 
tiempo. 

La lentitud de PAINT es a veces 
no permutable, pero hay que ago- 
tar los pasos para llegar a su utili- 
zación directa. 

Por ejemplo: 

10 SCREEN 2 

20 LINE(50,100)-(200,50)„B 

30 PAINT (100,75) 

40 GOTO 40 

la ejecución produce un rectángu- 
lo que se rellena por medio de la 
línea 30, de tal modo que es 10 
VECES más lenta que: 

10 SCREEN 2 

20 LINE (50,100)-(200,50)„BF 
30 GOTO 30 

ya que el relleno está preestable- 
cido en F tal como indicamos al re- 
ferirnos a la instrucción UNE. 

José Leal Rodríguez 
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SOFTWARE 



Programa: The Dam 
Busters 
Tipo: Juego 
Distribuidor: ERBE 
Formato: Cassette 

Pocos son los juegos de simu- 
lación existentes en el mercado. 
De ellos, The Dam Busters es el 
más realista, complicado y uno 
de los mejores que hemos pro- 
bado. 

Basado en hechos de la II 
Guerra Mundial, Dam Busters 
es un simulador de vuelo en el 
que tu misión consiste en des- 
truir una serie de presas volan- 
do a baja altura, de noche y con 
luna llena. La perspectiva no pa- 
rece muy buena, ya que las ba- 
terías antiaéreas permanecen 
siempre alerta ante cualquier si- 
tuación anormal, por este moti- 
vo deberás tener un control ab- 
soluto sobre tus hombres y 



operación. Pulsando la teclas 1 
a 7 podrá controlar los siguien- 
tes elementos: 

1. Piloto. 

2. Artillero delantero. 

3. Artillero trasero. 

4. Bombardero. 

5. Navegador. 

6. Pantalla del Primer Ingenie- 
ro. 

7. Pantalla del Segundo Inge- 
niero. 

Cada uno de ellos tiene una 
labor concreta y una pantalla 
específica. Es decir, en el mo- 
mento en que se pulse una op- 
ción aparecerá la pantalla de la 
que se ha escogido con todos 
sus elementos. 

En la primera de ellas, el pilo- 
to controla la dirección del 
avión con el joystick, de la mis- 
ma manera que esta palanca 
funciona en un avión. Empujan- 
do la palanca, el avión baja. Ti- 
rando de ella, el avión sube y 




equipo. 

Para empezar, tienes dos op- 
ciones a elegir; 1) Teniente de 
vuelo ó 2) Jefe de Escuadrón. 
Una vez elegida la que más gus- 
te, tendrás que familiarizarte 
con los tripulantes y la misión 
dentro del contexto global de la 



para girar hacia la izquierda o 
derecha, haremos lo propio con 
el joystick. Con la opción si- 
guiente, se controla la función 
del artillero delantero, que con 
dos ametralladoras dobles será 
el encargado de ir despejando 
el camino. Como es lógico, las 



ametralladoras se dirigen con el 
joystick. Además de controlar 
las ametralladoras, también ha- 
ce las funciones de bombarde- 
ro, aunque tiene poco sentido 
acceder a esta opción si no es 
cerca del objetivo final. La si- 
guiente opción, es la del artille- 
ro trasero. A la vez que el artille- 
ro delantero, este controla dos 
ametralladoras dobles y se ma- 
neja con el joystick. Luego está 
el navegador, que tiene la mi- 
sión más importante, la respon- 
sabilidad de buscar la ruta a tra- 
vés del territorio enemigo hasta 
las presas. En su pantalla, apa- 
recerá un mapa en el cual hay 
dos objetivos que se mueven. 
Uno muestra la posición actual 
del avión y otro, el cursor de na- 
vegación que se usa para elegir 
la dirección en compás. Por últi- 
mo quedan las pantallas del in- 
geniero, que es el encargado de 
vigilar los motores, tanto su de- 
sarrollo, como evitar los posi- 
bles incendios y pasadas de 
vueltas que suelen ocurrir en 
estos casos. 

El programa viene acompa- 
ñado por un manual en el que se 
explican, tanto las característi- 
cas del avión que se emplea en 
la misión, como los puestos y 
misión de cada tripulante, así 
como la bomba utilizada para 
este tipo de operaciones, pues 
al ser especial requiere unos 
conocimientos previos antes de 
lanzarla. 

Un buen programa que, nece- 
sita horas de entrenamiento pa- 
ra poder dominar el arte de vo- 
lar. 

Puntuación: 
Presentación: 8 
Claridad: 8 
Rapidez: 9 
Adicción: 8 
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Programa: BATMAN 
Tipo: Juego 
Distribuidor: ERBE 
Formato: Cassette. 

Te encuentras en las Bati-Cue- 
vas, debajo de Gotham-City. Ro- 
bín ha sido capturado por los 
enemigos de Batman. La única 
posibilidad de escapar es em- 
samblar el Baticraf, cuyas pie- 
zas se hallan dispersas por las 
catacumbas. 

Si tuviéramos que hacer una 
evaluación de lo que ha supues- 
to estos últimos meses en el 
mercado de los juegos de arca- 
de-aventura, nos parece verda- 
deramente imposible que se 
pudiera llegar a mejorar signifi- 
cativamente un juego de estas 
características, dadas las limi- 
taciones que supone a estas al- 
turas disponer de tan sólo 64K 
de memoria para la realización 
de este tipo de obras de arte en 
el mundo del software. 

Para aquellos conocedores 
de la técnica de Ultímate, pode- 
mos decir que este juego sigue 
una técnica muy similar a los an- 
teriores pero en el momento en 
que nos adentremos en él, com- 
probaremos que no sólo existen 
técnicas, gráficos, versatilidad 
de movimientos, etc., sino inclu- 
so en la trama que sigue, ya que 
es muy interesante. 

Podemos referirnos a Ocean 
como un genio que ha consegui- 
do lo irrealizable por el momen- 
to. 

Comenzamos por tanto la 
aventura, señalando los prime- 
ros pasos que debemos seguir. 
Hay que partir en un primer mo- 
mento en busca del equipo de 
Batman. Son cuatro objetos im- 
prescindibles que deben ser 
encontrados lo antes posible 
para poder desarrollar sus po- 



deres; las batibotas, sirven para 
saltar en los momentos en que 
nos veamos más asediados. La 
Batimochila, imprescindible, ya 
que a lo largo de la aventura ten- 
dremos que recoger numerosos 
objetos importantes para nues- 
tra supervivencia. 

Batimotor, indispensable pa- 
ra controlar nuestro vuelo, y la 
velocidad de éste, así como el 
Baticinturón, que reducirá nues- 
tra velocidad en las caídas. Sólo 



y únicamente habiendo reunido 
estos objetos, se podrá prose- 
guir con alguna probabilidad 
de éxito, ya que la misión no 
consiste en esto tan solo, sino en 
encontrar cada una de las pie- 
zas que forman el Baticraf para 
poder ir en la ayuda de Robin y 
rescatarlo. 

¿Cuáles son los peligros que 
nos acechan?, son numerosos y 
por tanto debemos estar a cada 
momento con todos nuestros 
sentidos en movimiento. 

Esta odisea nos preparará 
trampas en las que nos será muy 
difícil no caer, pero no hay nada 
imposible y enemigos con los 
que mejor no nos hubiéramos 
encontrado. Para ayudarnos a 



sobrevivir en estas condiciones 
hay algunos Batipoderes repar- 
tidos por las catacumbas en for- 
mas de pequeños Batmans, es- 
tos pueden darnos vidas extras, 
energía, inmunizarlos a los peli- 
gros o poder saltar más alto, pe- 
ro no todo es de color de rosa, 
existen unos falsos Batipoderes, 
que en caso de confundirnos 
neutralizarán todos aquellos 
que hayamos conseguido antes. 
Otro elemento interesante 



son las Batiseñales: tocándolas 
nos permitirán comenzar desde 
ese punto con el mismo número 
de vidas y objetos que transpor- 
temos, si al perder la partida no 
habiendo alcanzado nuestro fin, 
deseamos continuar sin tener 
que volver a empezar de nuevo. 

El juego es muy completo e"h 
cuanto a su presentación, op- 
ciones de menú, etc., el nivel 
técnico es muy elevado, y han 
sabido aprovechar en gran ma- 
nera la perfección de la capaci- 
dad gráfica del ordenador. 

Presentación: 9 
Claridad: 7 
Rapidez: 9 
Adicción: 10 
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SOFTWARE 



Programa: Future 
Knight 
Tipo: Juego 
Distribuidor: ERBE 
Formato: Cassette 



Numerosos son los diferentes 
juegos que han tomado como 
basé el entrañable juego de los 
comecosos, como habitualmen- 

te lo conocemos, pero todos 



dos los objetos necesarios para 
enfrentarnos a los variados y 
múltiples enemigos que se nos 

presentan. Equipados con una 
sofisticada indumentaria, un tra- 
je espacial, seremos inmunes a 
muchos enemigos desde el mo- 
mento en que comience la parti- 
da, ahora bien, si conseguimos 
batirlos con nuestra pistola de 
torpedos, además de conservar 
nuestas fuerzas, conseguiremos 
puntos. El traje en sí nos permiti- 




ellos, no han sabido crear par- 
tiendo de una base inmejorable 
como es la más sencilla estruc- 
tura de un juego de software. 

Future Knight, es una sofisti- 
cación de este tipo de juegos 
aunque no podemos denomi- 
narlo como tal, ya que este jue- 
go en sí es una combinación de 
varios, extrayendo de cada uno 
lo mejor. 

No podemos hablar de panta- 
llas, ya que es una sucesión de 
movimientos que debemos de 
efectuar a lo largo de un entra- 
mado de escaleras, niveles y 
módulos los cuales debemos 
sortear y examinar, pues la mi- 
sión comenzará en el momento 
en que hayamos conseguido to- 



rá movernos por cualquier sitio 
siempre ascendiendo o descen- 
diendo en busca de los elemen- 
tos que lo forman, pistola de 
rayos láser, protector, etc., pero 
tan solo tendremos 900 sg para 
conseguir realizar esta primera 
prueba ya que cada vez ascen- 
damos a otro nivel los enemigos 
serán más audaces y veloces. 

Como controlar a nuestro as- 
tronauta, si utilizamos joystick, 
no existe problema alguno, si 
por el contrario nos gusta más el 
teclado existen teclas designa- 
das, para realizar funciones en 
caso de ayuda que os serán muy 
útiles. En primer lugar debéis 
echar un vistazo para familiari- 
zaros con los peligros existen- 



tes. El juego, a diferencia de 
otros no se encuentra sobrecar- 
gado de elementos que os ha- 
gan la vida imposible, es por 
ello que alcanzar vuestro objeti- 
vo no será difícil. Calaveras, 
moles, máquinas y verdaderos 
robots destructores saldrán a 
vuestro encuentro, disparad y 
luego proseguid, de esta forma 
no agotaréis vuestra energía y 
sumaréis puntos. 

Inspeccionad el piso inferior, 
e id ascendiendo a medida que 
vais encontrando enemigos, so- 
bre todo daros prisa pues el 
tiempo se acaba y recoger to- 
dos los objetos con que os en- 
contraréis. 

La pantalla, en su parte infe- 
rior consta de un reloj digital 
que os irá recordando el tiempo 
que os queda, los elementos 
que habéis conseguido y las vi- 
das que os quedan. 

Con estas pequeñas connota- 
ciones podéis haceros una idea 
de las características del juego, 
pero creemos que estas pala- 
bras son pocas para referirnos a 
este juego. Excelente en su 
creación de gráficos, los deta- 
lles están muy mejorados y el 
sonido no interrumpe en absolu- 
to en su desarrollo, asimismo to- 
dos los elementos que forman el 
juego son especiales, es decir, 
no son los elementos clásicos 
que estamos acostumbrados a 
ver en estos juegos, tan sólo, 
claro está, a nuestro protagonis- 
ta, y a modo de sugerencia esto 
también se podía modificar. 

El nivel de dificultad no es 
elevado pero la rapidez y exac- 
titud sí. ¡¡Adelante!! 

Puntuación: 
Presentación: 8 
Claridad: 6 
Rapidez: 7 
Adicción: 8 
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Programa: Avenger 
Tipo: Juego 
Distribuidor: ERBE 
Formato: Cassette 

Avenger, para aquellos adic- 
tos de los juegos de rapidez y 
misterio, es sin duda uno de los 
mejores prototipos actualmen- 
te. 

Las bases de creación que 
han utilizado es como en todos 
los que hasta hoy en día hemos 
conocido, sencillas, pero esto 
no quiere decir simple y esta es 
la principal característica de 
este jujego. El molde, que pu- 
diéramos decir han utilizado pa- 
ra crearlo, es el de multitud de 
juegos de arcade-aventura, que 
nos inundan el mercado, pero 
esto nos permite la posibilidad 
de ver antes de creer. 

El juego en sí tiene ciertas in- 
dividualidades que le hacen ca- 
racterístico y a su vez innovista 
en cuanto al tipo de gráficos, los 
cuales debemos destacar. 

El mapa del juego no es ex- 
tenso, ya que nos presenta a mo- 
do de croquis todo el escenario 
en que se desarrolla. Los labe- 
rintos y pasadizos de un recinto 
medieval configuran el escena- 
rio de la aventura. La principal 
diferencia que encontramos re- 
ferido a esto, es que las panta- 
llas no son sucesivas cámaras 
de las que pasas, o no sales, si- 
no la viabilidad de un recinto el 
cual tiene sus normas de entra- 
da pero no de salida, tan sólo tu 
habilidad y velocidad. Objeti- 
vos irán saliendo a tu paso, pero 
debes tener en cuenta el tiem- 
po. Tendrás tan solo 10 soles, 
forma que se usaba en la anti- 
gua Edad Media para medirlo. 
Encontrar el tesoro es el princi- 
pal objetivo de todos los aventu- 
reros, pues aquí hay dos, pero 



también existen otros elemen- 
tos que deben ser considerados 
como tal, las llaves, sin ellas no 

podrás acceder a ningún sitio, 
ya que cada cámara a la que en- 
tres necesitarás abrir su puerta 
correspondiente, aunque esto 
no es para todas igual. Significa 
que consiguiendo abrir la pri- 
mera puerta todas las que forman 
ese recinto serán derribadas 
con un acertado golpe, de Kara- 
te ya que nuestro amigo en sus 
numerosos viajes de aventuras 
ha asimilado las más eficientes 
técnicas. 

No tendrás problemas en 
cuanto a los peligros que se te 
avecinan pues tú eres demasia- 
do rápido para los moradores 
del castillo, arañas, monstruos, 
y verdugos, los cuales no te ma- 
tarán sino que harán agotar tu 
tiempo hasta que pierdas y de- 
saparezcas. La mejor forma de 
batirlos es, o bien lanzando fle- 
chas de fuego ya que no es difí- 



rrer el mayor tramo de aventura. 

Las propias características 
del juego, que principalmente 

son el entretenimiento y con ello 
la variedad y singularidad, sin 
duda se encuentra en sus gráfi- 
cos. No podemos decir que sea 
una creación de las más avanza- 
das técnicas, pero si de las más 
cuidades dentro de sus posibili- 
dades. Un ejemplo a destacar 
dentro de los elementos gráfi- 
cos que aparecen son unas pe- 
queñas llamas de fuego que se 
encuentran en el suelo de los re- 
cintos y que nos impiden el pa- 
so, a esto le podemos unir la 
imaginación a la hora de crear 
los adversarios, su originalidad 
y sobre todo el color, fuerte pe- 
ro que resalta aún más el juego. 
Unos consejos para jugar mejor, 
procurad ir bordenado la mura- 
lla ya que los caminos por fuera 
del recinto son muy anchos. Mu- 
cha paciencia si jugáis con joys- 
tick. 




cil acertarles o enfrentándote 
con ellos con tus espectacula- 
res golpes de karate, y sal co- 
rriendo ya que cada vez que ma- 
tes a uno no conseguirás puntos 
pues ei juego consiste en reco- 



Puntuación: 
Presentación: 8 
Claridad: 8 
Rapidez: 9 
Adicción: 8 
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el mejor sof twa 





DE CARgA 



DROME 

Entretanto en DROME, un Super-ordenador, debes encontrar y elimi- 
nar los sofisticados sistemas de defensa y supervivencia. 

Has de elegir uno de los cuatro sectores que constituyen los mecanis- 
mos de defensa de esta terrorífica máquina. 

Un atractivo juego de acción, donde se pone a prueba la capacidad 
de la máquina y del jugador. 

Precio de venta 2.000 ptas. (IVA incluido) 



FLIGHT DECK 

Sienta la emoción del golfo de Sidra en casa. 

FLIGHT DECK es un juego de estrategia y habilidiad en el que tendrás 
que desmantelar las bases enemigas. 

Al mando de un portaaviones donde dispones de 1 unidades de 
combate... y poco tiempo. 

Precio de venta 2.000 ptas. (IVA incluido) 
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MC-ATTACK 

Ayuda a Fredy, el Rey de la Hamburguesa a preparar el suculento man- 
jar que hace las delicias de los comensales. 

Ten cuidado con las salchichas grasientas y los huevos escurridizos que 
intentarán arruinar tu exquisito plato. 

Defínete con la pimienta y procura hacer el mejor número de hambur- 
guesas posible. 

... Buen provecho. 

Precio de venta 750 ptas. (IVA incluido) 
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COflFUSED? 

EL PUZZLE ELECTRONICO 




SPAGE RESGUE 

UlHUL ItLUUUL 




CONFUSED? 

Es el puzzle electrónico. 

El objeto del juego es resolver 1 puzzles con distinto número de pie- 
zas, a elegir, pero todas... MOVIENDOSE. 

Pon a prueba tu inteligencia y capacidad de deducción para solucio- 
nar algunos de estos entretenidos rompecabezas. 

Precio de venta 2.000 ptas. (IVA incluido) 

NORTH SEA HELICOPTER 

Una explosión en una plataforma en el mar del Norte arroja a los 
hombres a un destino incierto... 

Empieza una carrera contrareloj para salvarles de su fatal situación. 

Tienes que convertirte en un piloto experimentado para mantener el 
control del helicóptero... El tiempo empeora. 

¿Crees que cumplirás la misión? 

Precio de venta 2.000 ptas. (IVA incluido) 
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SPACE RESCUE 

Desciende de tu nave nodriza a la 
superficie lunar e intenta rescatar a los 
hombres extraviados. 

Ojo con los meteoritos que te destrui- 
rán cuando intentes regresar. 

Disponer de nuevas plataformas pa- 
ra culminar con éxito la misión. 

Desgraciadamente tu nave nodriza 
está bloqueada por unidades de com- 
bate enemigas... Intenta destruirlas. 

Precio de venta 750 ptas. (IVA 
incluido) 
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MSX 64K - CASSETTE 
MANUAL EN CASTELLANO 



infoúis. s.d. i 



Solicita tu programa favorito en tu tienda especializada habitual o recorta y envía 
este cupón a INFODIS. S. A.. c/Bravo Murillo. 377. 5.° A - 28020 MADRID. 
NOMBRE . 



DIRECCION _ 
POBLACION 



PROVINCIA 



C. P. 



Forma de pago: CHEQUE □ CONTRAREEMBOLSO □ 

TARJETA DE CREDITO: American Express □ VISA □ INTERBANK 

Número de mi tar.eta QJHXQIIIIIIXIT ] 

CADUCIDAD 

Firma 



TITULO 


CANTIDAD 


TITULO 


CANTIDAD 


DROME 
FLIGH DECK 
MC-ATTACK 




CONFUSED? 
NORTH SEA 
HELICOPTER 
SPACE RESCUE 





SOFTWARE 



Programa: Nemesis 
Tipo: Juego 
Distribuidor: SERMA 
Formato: Cassette 



Estamos ante un programa 
que promete ser el juego del 
año. La diversidad de las panta- 
llas, el nivel de los gráficos, el 
sonido y todas las característi- 



ros, las bombas, etc. 

Se empieza con tres naves y 
con la opción de uno o dos juga- 
dores. Una vez realizada la elec- 
ción correspondiente, hay que 
empezar a disparar con orden 
para conseguir una serie de ele- 
mentos que nos ayudarán en el 
cometido de nuestra misión. Es 
muy útil dejar que el programa 
nos muestre la demostración y 
así hacerse una idea de lo que 
va a ser y de las armas con que 




cas de los programas «¡nade in 
Konami», se juntan en este jue- 
go para realizar una auténtica 
obra que tendrá a más de uno 
pegado a la silla una hora sí y 
otra también. 

Las pantallas iniciales, sirven 
para crear ambiente y para ha- 
cerse una idea de lo que nos es- 
pera. Hay que disparar a todo lo 
que salga por tierra y aire, y de- 
jar los menos enemigos posi- 
bles puesto que, como buenos 
marcianos, dispararán tanto ha- 
cia adelante como hacia atrás, 
hacia arriba y hacia abajo, lo 
que significa que habrá que te- 
ner los ojos puestos en todos los 
lados y procurar esquivar los ti- 



se cuentan, ya que aunque ini- 
cialmente sólo podamos dispa- 
rar tiro a tiro, cuando hayamos 
recorrido algunas pantallas po- 
dos tener hasta tres naves (la 
propia y dos sombras) dispa- 
rando ráfagas de rayos láser y 
lanzando bombas a la vez, que 
destruyen todo lo que pillan por 
el camino. Estas opciones se en- 
cuentran indicadas en la línea 
inferior de la pantalla y son: 
speed up, missüe, doble, láser, 
option y ?. Cada una de ellas tie- 
ne un cometido especial que ve- 
remos a continuación. La prime- 
ra de ellas, speed up, permite 
conseguir más velocidad de la 
que inicialmente cuentas, muy 



útil a la hora de esquivar los pe- 
sados marcianos que nos persi- 
guen. Con missile, podrá lanzar 

bombas sobre los enemigos 
que se hallen en tierra. Esta op- 
ción facilita la concentración en 
el vuelo, al poder desentender- 
se de los que se encuentran ba- 
jo nosotros. La tercera opción 
es doble, con la que se pasará 
del tiro simple al tiro en dos di- 
recciones distintas, con esta se 
eliminarán los enemigos que 
vengan por arriba. La siguiente 
es el láser, muy importante por 
el barrido que realiza con cada 
tiro. Con option, podremos con- 
tar con una nave sombra, que 
nos seguirá a todas partes y dis- 
parará a la vez que nosotros. Es 
indestructible y muy útil, pero 
hay que saber utilizarla. Por últi- 
mo, queda la ?, que es un escu- 
do protector, útil por razones 
obvias. 

Estos son los elementos nece- 
sarios para completar la misión, 
que está compuesta por varias 
etapas, al final de cada una de 
ellas hay que enfrentarse a la su- 
per-nave enemiga cuyos 6 ca- 
ñones nos estarán esperando. 
Para eliminarla, habrá que dis- 
parar repetidas veces al centro 
y no desanimarse. Y no os expli- 
caremos más, porque si no sa- 
bríais más que nosotros. ¡¡Suer- 
te y feliz caza!! 



Puntuación: 
Presentación: 9 
Claridad: 9 
Rapidez: 10 
Adicción: 10 
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PARTIO 
EN NUESTRO 

CONCURSO 

M SX Magazine premiará cada mes Jos 
programas que nos hagan llegar nuestros 
lectores. 

Para participar en este concurso 
abierto, todo aficionado a los ordenado 
con este estándar deberá hacer llegar 
redacción de la revista el listado, un 
cassette y un texto explicativo. 

Entre todos los programas que 
recibamos cada mes, serán selec 
para su publicación aquellos que 
los siguientes criterios: 

— Originalidad de la aplicación 

— Simplicidad del método de ' 
programación. ^ 

La única condición para par 
el concurso será que los program 
hayan sido publicados previamente en 
ninguna revista. 

E nviar vuestros programas a: MSX Magazine 
C/Bravo Murillo, 377 - 5.° A 28020 MADRID 



SOFTWARE 



Programa: Idea-text 
Tipo: Aplicación 
Distribuidor: Idealogic 
Formato: Cartucho 
ROM 

A pesar del tiempo transcurri- 
do, Idea-text, no deja de ser no- 
vedad. Cuando los ordenadores 
MSX de la I Generación pedían 
a gritos programas de aplica- 
ción y/o gestión, aparecieron 
los primeros trabajos de Idealo- 
gic en cassette. Ha pasado mu- 
cho tiempo desde entonces, y 
este programa no ha dejado 
más que un buen sabor de boca. 
Es sencillo, fácilmente maneja- 
ble y muy completo. Prueba de 
ello es que lo hemos empleado 
en varios trabajos, saliendo ai- 
roso de los compromisos. 

Al conectar el cartucho, este 
detecta si la unidad de discos 
está conectada, con lo cual se 
altera la línea inferior del menú 
de la pantalla principal y donde 
antes aparecían las funciones: 

BLOQ- CINTA BUSO- CONT. 
VSLR. 

ahora aparece: 

BLOQ- DISCO BUSO- CONT. 
VSLR. 

con lo que este aspecto queda 
totalmente de la mano del orde- 
nador. 

Dentro de la pantalla princi- 
pal, hay una ventana de informa- 
ción en la parte inferior de la 
pantalla que es la que indica en 
todo momento el estado del tra- 
bajo, devolviendo mensajes y 
errores si fuera necesario. Nor- 
malmente, tendrá la siguiente 
información: 

LIN: indica el número de 
línea de pantalla en que se en- 
cuentre el cursor. 

COL: indica la columna de 
pantalla en que se encuentra el 
cursor. 
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MEM: es la memoria que que- 
da disponible para texto (42500 
caracteres como máximo en un 
MSX con 64K). 

Esta información, junto con la 
proporcionada por las teclas de 
función Fl a F5, permiten tener 
un fácil acceso a todo tipo de 
datos mientras se está escri- 
biendo. 

Después de esta breve intro- 
ducción al programa, es impor- 
tante resaltar que en la pantalla 
se verán 29 caracteres por 
línea, sin embargo, la opción F5 
(VSLR) le permitirá observar en 
pantalla como quedaría el lista- 
do. Es decir, si al definir el for- 
mato de salida del documento, 
hemos indicado que se imprima 
a 80 columnas, estas sólo se ve- 
rán al pulsar la opción F5, en la 
cual, el usuario comprobará co- 
mo queda el trabajo final. 

Veamos lo que realiza cada 
tecla de función. La Fl (BLO- 
QUES), gestiona bloques de 
texto. Estos se marcan, al princi- 
pio y al final, y se tratan como 
una unidad, pudiéndose borrar, 
mover, copiar, grabar, insertar 
y limpiar. 

La F2 (DISCO o CINTA), per- 
mite realizar cualquier opera- 
ción con uno de estos dos peri- 
féricos. En el caso de utilizar el 



disco, tendríamos la posibilidad 
de grabar, recuperar, borrar, 
renombrar y mostrar el directo- 
rio del disco. Sin embargo, si 
fuera la cinta el soporte utiliza- 
do, tendríamos las siguientes 
opciones: grabar, recuperar y 
verificar. La tecla F3 (BUSQ.), 
permite la búsqueda de textos y 
etiquetas. Sus opciones son: po- 
ner etiquetas, salta etiquetas, 
busca una cadena de texto y 
sustituye una cadena de texto. 

La tecla F4 (CONTROL), sitúa 
en el texto los caracteres de 
control que permiten formatear 
la salida impresa. En esta op- 
ción, podemos introducir todo 
tipo de elementos que ayuden a 
obtener una impresión agrada- 
ble y funcional. Por último, la te- 
cla F5 (VISUALIZAR), muestra 
en la pantalla o en la impresora, 
según la opción elegida, el re- 
sultado de todo el trabajo. 

En resumen, nos hallamos an- 
te un tratamiento de textos cuya 
utilidad y aplicación están fuera 
de toda duda. 

Puntuación: 
Presentación: 9 
Claridad: 8 
Rapidez: 8 
Adicción: 




IDEA BASE 
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IfrEATEXT 

COL: 1 




Programa: Idea-base 
Tipo: Aplicación 
Distribuidor: Idealogic 
Formato: Cartucho 
ROM 




Esta base de datos, es una po- 
tente herramienta de trabajo, 
imprescindible desde todos los 
puntos de vista, ya sea para ser 



usada con fines didácticos o co- 
mo una completa base de datos, 
sencilla y fácil de utilizar. 

Es el complemento ideal para 
los usuarios de los ordenadores 
MSX de la I Generación, cuyos 
ordenadores posean dos buses 
de expansión, ya que, en uno de 
ellos se conecta el programa y 
en el otro se podrá conectar la 
unidad de discos. Esto es una 
ventaja adicional, al poder usar 
la unidad de discos conjunta- 
mente con un cassette, convier- 
ten al MSX en un completo cen- 
tro de almacenamiento y trata- 
miento de información, con la 
posibilidad de compaginar in- 



distintamente ambos periféri- 
cos, además de poder usar con- 
juntamente otros programas de 
esta misma casa preparados 
para tal fin, como por ejemplo, 
Idea-text y Dim-Calc. Otra de 
las grandes ventajas de este 
programa, es que viene en car- 
tucho. Lo que significa, que por 
un lado se evitan los problemas 
de carga que suele ser una 
constante en este tipo de perifé- 
ricos y por otra parte, la capaci- 



dad interna de almacenamiento 
de datos es bastante considera- 
ble, ¡41367 caracteres! 

El programa está organizado 
ipor menús jerarquizados, sien- 
do el primero que aparece en la 
pantalla después de la presen- 
tación, el principal. Este permi- 
te acceder a todas las diversas 
partes del programa. 

En la zona superior de la pan- 
talla, aparecen unas líneas de 
información. Los datos que hay 
en ella, indican el menú u opera- 
ción en que se encuentra. En la 
zona inferior de la pantalla hay 
un espacio en blanco que el 
programa utiliza para informar 



al usuario de los posibles erro- 
res o para comunicarse con él 
cuando falten datos y en el cen- 
tro de la pantalla del menú, apa- 
rece la lista de posibles accio- 
nes que pueden realizarse en 
ese momento. Para activar una 
de ellas, bastará con pulsar su 
número correspondiente. 

El menú principal dispone de 
8 opciones, que son: 

1. Crear fichas. 

2. Entrar fichas nuevas. 

3. Seleccionar fichas. 

4. Cinta. 

5. Ordenar. 

6. Impresora. 

7. Disco. 

8. Cambiar colores. 

Con estas opciones, se pue- 
den definir todo tipo de ficheros 
y con el formato que cada uno 
desee. Pero antes de empezar 
el proceso de definición de fi- 
cheros, hay que tener claros los 
conceptos de registros y cam- 
pos. Sin entrar en muchos deta- 
lles, principalmente porque es- 
éste no es el objeto de esta sec- 
ción, un fichero está compuesto 
por varios campos. Lo que quie- 
re decir que, antes que nada ha- 
brá que definir los campos, 
cuya longitud máxima es de 255 
caracteres, tamaño suficiente 
para cualquier tipo de necesi- 
dad. 

Resumiendo, Idea-base es la 
base de datos más sencilla y fá- 
cil de utilizar que, hoy por hoy 
podremos encontrar en el mer- 
cado. 



Puntuación: 
Presentación: 8 
Claridad: 8 
Rapidez: 9 
Adicción: 
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BASIC MSX. «90 
más que un tenouaje 

Pnntancos estAndnr 
para lodos 



Núm. 1 

¿Que es el MSX? Su BASIC, 
periféricos, programas, 
software. 




Núm. 4 

Las comunicaciones entre 
ordenadores, la jerga infor- 
mática, trucos. 



Núm. 7 

Analizamos el Generador de 
Sonido. Aplicaciones mate- 
máticas con el ordenador. 




Núm. 2 

Generación de sonido. 
MSX-DOS, el ordenador por 
dentro, programas, noticias. 



Núm. 5 

Comandos de entrada/sali- 
da, el BASIC MSX compara- 
do con Spectrum y Commo- 
dore 64. Código Máquina. 



Núm. 8 

Compact Disc. el periférico 
del futuro. Test: Dynadata 
DPC-200. Continuamos con 
la memoria de video. Libros, 



Núm. 10 

Características de la II Ge- 
neración. Los secretos del 
modo Screen 2. Test: los 
plotters. Aplicaciones: ma- 
trices y determinantes. 




LOGO, un lenguaje educati- 
vo. Screen 3: el modo multi- 
color. Aplicaciones: siste- 
mas de ecuaciones. BASIC 
para principiantes. Test: 
Seikosha SP-1000MX. 




Núm. 3 

Los joysticks, 256 caracte- 
res programables, Z80 co- 
razón de león, compro/ven- 
do/cambio. 



Núm. 6 

Los 8 magníficos (test gi- 
gante), el bus de expansión, 
los misterios de la graba- 
ción, programas. 



Núm. 9 

Características técnicas del 
Compact Disc. Tratamiento 
de datos. Test: Quick Disk. 
Trucos, libros, noticias, 



Núm. 12 

SVI-328: precursor del es- 
tándar. Aplicaciones: siste- 
mas de ecuaciones II. Códi- 
go Máquina. Test: Toshiba 
HX-20. 




DE EJEMPLARES ATRASADOS 



ESTOS SON LOS EJEMPLARES DE MSX MAGAZINE APARECIDOS EN EL MERCADO 

CON UN RESUMEN DE SU CONTENIDO 




rrogr uiims, 

VG-8235 

LA II GENERACION EN MARCHA 



Núm. 13 

VG-8235, la I generación en 
marcha. SVI-3 18/328: aná- 
lisis interno. Test: Yamaha 
CX5M y CX5M II. BASIC: las 
variables alfanuméricas. Las 
matemáticas y el ordenador. 




Cómo 

ahorrar 

memoria 



Test: r 
Mitsubishi 
NtL GIyMlG3 

Instrucciones 
ocultas 



programas, 
software 




Núm. 14 

Controle sus errores de pro- 
gramación. Aplicaciones 
matemáticas: interpolación. 
Memoria de Vídeo: los spri- 
tes. Código Máquina: los re- 
gistros dobles. 



ROBOTS, 

TRABAJADORES INFATIGABLES 



Núm. 17 

Robots, trabajadores infati- 
gables. Cómo ahorrar me- 
moria. Test: Mitsubishi ML- 
G1 y ML-G3. Instrucciones 
ocultas del Z-80. El proce- 
sador de vído del SVI-318/ 
328. Desensamblador. 




Núm. 18 

Los diskettes al descubierto. 
El BIOS de la memoria de 
video. Test: interface RS- 
232C. Unidad de discos ML- 
F30D. Utilización de fiche- 
ros. SVI-31 8/328, SCREEN 
2. 



Núm. 15 

¿Porqué es lento el BASIC? 
El procesador de video del 
SVI-31 8/328. Test: Sony 
HB-500P. BASIC: los dia- 
gramas de flujo. Los modos 
de pantalla. 




Núm. 16 

Dos gigantes frente a frente. 
Test: VC-10, un oscilosco- 
pio muy especial. Síntesis 
de voz. Utilidades de la RAM. 
Memoria de vídeo: instruc- 
ciones VPEED y VPOKE. 



PARA HACER SU PEDIDO, RELLENE ESTE CUPON, HOY MISMO Y ENVIELO A MSX MAGAZINE 

BRAVO MURILLO, 377. Tel. 7337969 - 28020 MADRID 



Ruego me envíen los siguientes números atrasados de MSX 

al precio de 300 ptas. cada uno. Cuyo importe abonare: 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE CREDITO 

□ AMERICAN EXPRESS □ VISA □ INTERBANK 



Número de mi tarjeta 
Fecha de caducidad 

NOMBRE 

DIRECCION 

POBLACION 

PROVINCIA 



CP. 



SOFTWARE 



Programa: MS-Text 
Tipo: Aplicación 
Distribuidor: Philips 
Formato: Disco/ 
Cassette 



Dentro de los distintos pro- 
gramas de aplicación que hay 
en el mercado para los MSX, po- 
demos señalar que el MS-Text 
de Philips ocupa un lugar muy 
destacado, al ser un programa 
que no sólo funciona con orde- 
nadores de la I generación, sino 
que también lo hace en algunos 



de la II, lo cual es un punto a su 
favor. Y esto tenemos que resal- 
tarlo, puesto que otros progra- 
mas con características simila- 
res no ejecutaban en otras má- 
quinas, perdiendo una de las 
más importantes cualidades de 
los MSX, la compatibilidad. 

MS-Text, viene con una pre- 
sentación muy buena y cuidada, 
con un manual completo aunque 



se podría haber entrado en más 
detalle acerca del programa y 
sus posibilidades. Del progra- 
ma, tenemos que resaltar que 
viene en dos formatos, cinta y 
disco de 3.5 pulgadas, lo que 
permite ser empleado por 
aquellos usuarios que aún no 
posean la unidad de discos, pe- 
riférico que lentamente se está 
haciendo indispensable, sobre- 
todo si queremos que nuestro 
ordenador se vea potenciado en 
gran medida. Como es lógico, la 
diferencia entre la velocidad de 
carga de uno y otro periférico es 
abismal, tardando la versión en 
cinta unos 5 minutos, mientras 
que en disco apenas llega a 30 
segundos. Es importante desta- 



MENU PRB 



car esta característica, ya que 
ninguna casa prepara sus pro- 
gramas de gestión (la que los 
tenga) en dos formatos tan po- 
pulares. 

Volviendo al programa, este 
puede ser empleado por todo ti- 
po de usuarios, desde los más 
pequeños hasta los profesiona- 
les, aunque para estos últimos 
haga falta otro que lo comple- 



mente como es el caso de MS- 
Base, una de las bases de datos 
más potentes que hay aunque 
presenta problemas de compa- 
tibilidad. Estos dos programas 
tienen estructura interactiva, lo 
que significa que se pueden uti- 
lizar los datos de uno (la base de 
datos) con el otro (el tratamiento 
de textos) para realizar mai- 
lings, informes, entre otras co- 
sas. 

Respecto al programa, la pan- 
talla principal muestra en la 
línea superior el estado actual 
en que nos hallamos, a la vez 
que nos va mostrando la capaci- 
dad de memoria con que conta- 
mos. Empezamos con espacio 
para más de 31.000 caracteres, 
tamaño suficiente para realizar 
informes, cartas, artículos, etc., 
y disponemos de 8 opciones 
que van desde la de crear texto 
hasta controlar los colores de la 
pantalla, pudiendo elegir cual- 
quier opción. Todas ellas vie- 
nen bien explicadas en el ma- 
nual, sin embargo, no habrá que 
utilizarlo con frecuencia al ser 
estas bastante claras. De todas 
las opciones que tiene el pro- 
grama, la que más nos gustó fue 
la de visualizar el texto por pan- 
talla, ya que permite ver con de- 
talle cómo va a quedar el texto 
en la impresora, además de fa- 
cilitar la apertura de ventanas 
en el texto, y muchas cosas más. 

Estamos ante el programa 
ideal para todos aquellos que 
necesiten un tratamiento de tex- 
tos útil, versátil y potente. 



Puntuación: 
Presentación: 10 
Claridad: 8 
Rapidez: 9 
Adicción: 
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Programa: dBASE II 
Tipo: Aplicación 
Distribuidor: Philips 
Formato: Disco 3.5 

i Por fin! ya tenemos un pro- 
grama de aplicación en condi- 
ciones, con las mismas funcio- 
nes y características que el 
dBASE II del IBM PC. Este pro- 
grama, es un sistema de manejo 
de datos potente y flexible, con 
un lenguaje de programación 
propio que potencia, aún más 
si cabe, esta base de datos. 

dBASE II (para los IBM PC) se 
empezó a comercializar en 
1981, lo que significa que ya lle- 
va bastante tiempo en el merca- 
do (actualmente existe el dBA- 
SE III para PC, siendo éste una 
versión actualizada del dBASE 
II). Aún así, la versión existente 
para MSX, a pesar de ser la an- 
terior sigue siendo lo suficiente- 
mente actual y potente como pa- 
ra no perder vigencia frente a 
otros programas, y es más, tiene 
unas características poco usua- 
les en un programa de aplica- 
ción como veremos más adelan- 
te. De entrada, el programa está 
preparado para que funcione 



tanto en los ordenadores de la I 
como de la II generación. 

El manual que acompaña al 
programa es amplio y completo, 
explicando detalladamente to- 
das y cada una de las cualida- 
des del dBASE II, así como el 
lenguaje de programación que 
completa el manejo de este pro- 
grama. Al final existe un ejem- 
plo orientativo. Veremos algu- 
nas de las muchas instrucciones 
que posee. 

Para empezar, el comando 
Help, le permitirá acceder al 
texto explicativo de todas las 
instrucciones y funciones que 
componen el programa. La lista, 
a primera vista interminable, es- 
tá muy completa pero a pesar 
de ello, no implica que sea com- 
plicado de manejar el progra- 
ma, es más, una persona que 
nunca haya tenido contacto al- 
guno con este tipo de aplicacio- 
nes podrá desenvolverse bien 
frente al maremagnum de ins- 
trucciones y comandos que hay. 
También cabe destacar la cuali- 
dad que tiene este programa de 
que no funciona con menús, sino 
con instrucciones directas, lo 
que significa que el usuario ten- 



drá que memorizarse las ins- 
trucciones existentes o mirar a 
cada rato la lista de comandos. 

En realidad, esto tiene una ven- 
taja bastante importante, debi- 
do a que los programas que fun- 
cionan mediante menús tienden 
a ser pesados una vez se sepan 
manejar a fondo, esto se elimina 
con el dBASE II cuyas instruc- 
ciones acceden directamente a 
la operación a realizar sin tener 
que pasar por menú alguno. De 
cualquier manera, el dBASE II 
está planteado en base a que el 
usuario novato lo es sólo una 
vez, ya que con el uso y abuso 
del programa se va adquiriendo 
una experiencia necesaria e im- 
prescindible en su manejo. Con 
ello se consigue transformar los 
datos, en información muy útil, 
ya sea agrupándola en un con- 
junto de información como blo- 
que o de cualquier otra manera. 

Este primer contacto con el 
dBASE II, nos ha servido para 
mostrar el inmediato futuro que 
podemos esperar de los MSX 
cuando se posee un programa 
en condiciones para trabajar y 
manifiesta una de las posibles 
tendencias de los MSX de la II 
generación, ordenadores per- 
sonales para la pequeña empre- 
sa, algo totalmentne factible 
cuando se poseen unos medios 
como estos. 

De cualquier manera, este 
programa merece la pena ser 
comentado mucho más extensa- 
mente de lo que permite el es- 
pacio dedicado a esta sección, 
por lo que en próximos números 
dedicaremos un artículo a des- 
velar los misterios del dBASE II. 

Puntuación: 
Presentación: 10 
Claridad: 9 
Rapidez: 9 
Adicción: 
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Libro: FORTH. Anatomía de 
un lenguaje inteligente 
Editorial: INGELEK, S.A. 
Páginas: 109 
Precio: 395 ptas. (IVA 
incluido) 



Hay quienes, al acercarse por 
primera vez al FORTH, se sienten 
extrañados de sus peculiaridades y 
un poco perdidos, llegando inclu- 
so a tacharlo de «raro» y a abando- 
nar cualquier intento de profundi- 
zar en él. Sin embargo, el FORTH es 
un lenguaje moderno con el que 
es natural la programación «de 
abajo a arriba», que permite obte- 
ner el máximo provecho del orde- 
nador y disponer, desde un len- 
guaje de alto nivel, de la rapidez y 
potencia del lenguaje máquina. 



Así pues, el tema central de este 
libro es el estilo característico de 
programación del FORTH, su filo- 
sofía y lo que se podrá o no hacer 
con él. 

Por supuesto, siempre resulta 
interesante conocer la historia de 
un lenguaje para poder compren- 
derlo. 

El primer capítulo del libro 
está dedicado a un somero repa- 
so del origen del FORTH, la figura 
de sus creadores, y las aplicaciones 
hacia las cuales se orientó en sus 
orígenes. 

Para que se hagan una 
idea de la potencia de este len- 
guaje, la sociedad compuesta por 
sus creadores Moore y Rather se 
dedicó en sus comienzos a aplica- 
ciones tales como el control y tra- 
tamiento de datos recibidos por un 
radiotelescopio. 



La base del FORTH es la «pala- 
bra» (en inglés, word), que expre- 
sa un concepto similar al procedi- 
miento en Pascal, pero con algu- 
nos matices diferentes. De hecho, 
el concepto «palabra» en FORTH 
admite una mayor flexibilidad y 
potencia. Al análisis de este tema 
se dedica el capítulo segundo. 

Otra característica notable de 
este lenguaje es el uso de la nota- 
ción RPN {Reverse Polish Nota- 
tion: Notación Polaca Inversa), con 
la cual estarán familiarizados los 
lectores que ya hayan manejado 
ciertos modelos de calculadoras 
Hewlett-Packard. Se trata de un 
sistema basado en una Pila o 
Stack, que ofrece una mayor rapi- 




dez y menor gasto de memoria 
para los cálculos matemáticos. 
Los siguientes capítulos explican 
esta notación, así como las opera- 
ciones aritméticas y el manejo del 
Stack. 

La flexibilidad del FORTH nace de 
la posibilidad de crear, redefinir y 
eliminar palabras (las palabras re- 
presentan acciones o grupos de 
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guaje partiendo desde su base. 
No se trata, desde luego, de un li- 
bro avanzado destinado a los que 
ya conocen el FORTH. 




acciones) y trabajar con un «dic- 
cionario» de palabras. De este 
modo, partiendo de unas pocas 
palabras básicas, el programador 
puede crear su propio diccionario, 
adaptando así el lenguaje a sus 
necesidades. El proceso de crea- 
ción, redefinición y destrucción de 
palabras se contempla en los 
capítulos 6 y 7. 

No obstante, no todo son venta- 
jas en el FORTH. La flexibilidad y la 
rapidez de ejecución tienen un 
precio: la limitación del uso de ma- 
temáticas en coma fija. Para ver 
más detalles léase el capítulo 8. 

A continuación se describen las 
estructuras de Forth que tienen 
paralelismo en otros lenguajes: 
bucles iterativos DO...LOP, bu- 
cles condicionales DO...UNTIL, 
IF...THEN...ELSE, etc., y definición y 
manejo de variables, constantes y 
tablas (matrices o'arrays). 

Por último, aprendemos la for- 
ma de mantener un diálogo inte- 
ractivo con el FORTH, utilizando las 
funciones de E/S (entrada/salida), 
así como la posibilidad de mane- 
jar diversas bases de numeración. 
Al final del libro, como siempre, 
encontramos dos apéndices muy 
útiles, uno con las palabras bási- 
cas del FORTH, y otro con el código 
Ao^ll. 

En resumen, se trata de un libro 
enfocado hacia aquellos que de- 
sean introducirse en el siempre in- 
trincado mundo de un nuevo len- 



Título: MSX Lenguaje 

Máquina 

Autor: Dullin - 

Strassenburg 

Editorial: Ferré Moret S.A. 

Páginas: 305 

Dado el elevado número de 
ventas de ordenadores persona- 
les, son cada día más las perso- 
nas interesadas en los temas refe- 
rentes a estos aparatos, y entre 
ellos el Lenguaje Máquina. Sin 
embargo, este lenguaje presenta 
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una cierta complejidad, y no es 
sencillo encontrar el libro adecua- 
do para aprender partiendo desde 
un nivel «cero», es decir, para el 
que no conoce nada de dicho len- 
guaje. 

Por ello, los usuarios de MSX 
están de enhorabuena, ya que el 
libro MSX Lenguaje Máquina les 



brinda la oportunidad de introdu- 
cirse en este campo de forma sen- 
cilla a través de sus páginas, en 
las que abundan los ejemplos. 
Además, los autores parten de la 
base de que el lector es totalmente 
novel en la informática, con lo cual 
se han preocupado de preparar 
un capítulo introductorio al orde- 
nador, la CPU, los sistemas de nu- 
meración y la aritmética binaria, 
de modo que el lector poco expe- 
rimentado en este terreno no se 
encuentre perdido en su recorrido 
por el libro. 

El lector no debe pensar que 
leyendo este libro ya sabrá realizar 
programas profesionales en códi- 
go máquina. Lo único que preten- 
de el libro es enseñar el lenguaje 
de la CPU, cómo se estructura y 
cómo se utiliza el lenguaje ensam- 
blador para programar; esto es, 
las técnicas fundamentales de 
programación. El lector necesitará 
practicar mucho para conseguir 
un buen nivel de conocimiento de 
este lenguaje. 

Hay que destacar que los auto- 
res se han preocupado de propor- 
cionar al lector las herramientas 
mínimas para que pueda practicar 
desarrollando los ejemplos. Así, 
se incluyen los listados de un pro- 
grama ensamblador de prácticas, 
desarrollado en BASIC, y de un 
monitor «paso a paso», también 
desarrollado en BASIC. Con estos 
dos programas podrá ejercitarse y 
verificar el funcionamiento de las 
rutinas-ejemplo, aprendiendo así 
a elegir en cada caso la instruc- 
ción del Z80 necesaria. 

Al final del libro se incluyen un 
apéndice con las rutinas del siste- 
ma operativo en ROM más útile, 
así como las tablas de instruccio- 
nes del microprocesador Z80 que 
facilita la compañía Zilog, fabri- 
cante de dicha CPU. 
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Diseño 
de Sprites 




ste programa permite la 
creación de sprites, alma- 
cenamiento en disco, y 
pruebas de animación con sprites, 
en todos los modos, para los MSX 
de segunda generaciódn. El pro- 
grama original está escrito en un 
PHILIPS VG-8235. 

Explicamos a continuación, por 
encima, el listado del programa. 

Líneas 10-160. Pantalla de pre- 
sentación e inicialización de varia- 
bles. Cambios en las teclas de fun- 
ción. 



170-230. Diseño de un sprite 
para el cursor. Este sprite puede 
ser modificado más adelante por 
vosotros. 

250-430. Bucle del menú prin- 
cipal. 

450-530. Rutina para la crea- 
ción de un sprite aleatorio. 

540-900. Creación pantalla prin- 
cipal. La presentación del progra- 
ma es una de sus principales ca- 
racterísticas. 

91 0-920. Rutina para encender/ 
apagar celdillas. 
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930-1090. Rutina para convertir 
el sprite seleccionado a datos nu- 
méricos. 

1100-1220. Dos rutinas de im- 
presión en la ventana de menús. 

1 230- 1 240. Apaga/enciende 
impresora de pantalla. 

1250-1330. Rutina de inversión 
de sprite. 

1340-1510. Rutina para efecto 
espejo vertical. 

1520-1640. Rutina borrado de 
rejilla. 

1650-1760. Rutina giro de spri- 
te. 

1770-1870. Rutina efecto espejo 
en horizontal. 

1880-2120. Rutina de almacén 
para sprites. 

2130-2190. Rutina de volcado 
de todos los sprites a impresora. 
Esta rutina va leyendo sprite a spri- 
te de tal manera que si encuentra 
uno vacío lo ignora y sigue a por 
otro. 

2200-2360. Rutina de conver- 
sión de sprites a datos numéricos 
en submenú. 

2370-2380. Rutina de cambio 
de color del cursor del submenú. 

2390-2480. Rutina para guardar 
sprites en la memoria. 

2490-2520. Desplazamiento 
cursor submenú. 

2530-2650. Rutina que saca 
sprite de memoria a rejilla de dise- 
ño. 

2660-2750. Rutinas de movi- 
miento del cursor del submenú. 

2760-2810. Rutina para poner 
sprites en el submenú. 

2820-2860. Rutina que quita 
sprites en pantalla de submenú. 

2870-2910. Rutina que borra 
datos de sprite. 

2920-2690. Gestiona todo el 
banco de pruebas. 

3700-4880. Gestiona operacio- 
nes con disco. Podemos prescin- 
dir de este, digamos subprogra- 
ma, si no pensamos utilizar alma- 





cenamiento en disco eliminando 
la línea 2020 y las líneas 4890 a 
5020. 

4890-5020. Rutina de detección 
de errores en disco. 

5030-5460. Rutina de anima- 
ción de sprites. 

El programa se compone bási- 
camente de cuatro pantallas o 
menús. El primero de todos (el 
menú principal) permite la crea- 
ción y modificación de sprites. Te- 
nemos una rejilla de 8X8 y un cur- 
sor parpadeante en forma de cruz. 
Este se mueve con los cursores y 
para dibujar o borrar una celda 
basta con pulsar la barra espada- 
dora. 

A la derecha de la rejilla de dise- 
ño tenemos tres zonas, una para 
binario, otra para hexadecimal y la 
última para decimal. Aquí apare- 
cerán los datos numéricos del 
sprite de la rejilla siempre que pul- 
semos RETURN. Si la impresora 
que tenemos en pantalla está en- 
cendida (tecla F7) estos datos pa- 
sarán a la impresora que tenga- 
mos conectada. Si intentamos pa- 
sar datos a impresora y esta no es- 
tá conectada el programa espera- 
rá a que lo hagamos. 

Justo abajo de la rejilla tenemos 
dos instrucciones. La tecla CLR 



limpia la rejilla, borra los datos nu- 
méricos y el sprite en tamaño na- 
tural que se ha ido dibujando eq 
un cuadradito blanco que hay 
más abajo. 

ESC pasa a impresora (si está 
conectada) todos los sprites que 
tengamos en memoria. 

La tecla de función F10 co- 
mienza de nuevo el programa bo- 
rrando todos los datos que tenga- 
mos hasta el momento. 

Nos queda por ver las teclas F1 
a F6. Todas menos la F5 alteran de 
alguna forma nuestro diseño. La 
F1 invierte las celdillas una por 
una, es decir, la que estaba en- 
cendida se apaga y viceversa. La 
F2 hace un efecto de espejo en 
sentido horizontal. La F3 gira no- 
venta grados el sprite de la rejilla. 
La F4 realiza la misma función que 
la F2 pero en sentido vertical. La 
F6 va encendiendo o apagando 
celdillas aleatoriamente. La F5 
cambia el menú de la pantalla 
principal. 

Cuando pulsamos esta tecla las 
F1 a F5 cambian de significado, el 
cursor de la rejilla se vuelve inacti- 
vo y aparece otro cursor dentro de 
esta ventana. Nos hallamos en el 
almacén de sprites. Con los cur- 
sores nos podemos desplazar por 
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256 posiciones de memoria a 
nuestro capricho. 

La tecla F1 guarda el sprite di- 
bujado en la rejilla en la posición 
donde se halle el nuevo cursor. Al 
mismo tiempo este sprite queda 
almacenado en la memoria del or- 
denador. 

La F4 lleva un sprite del alma- 
cén a la rejilla para su posible mo- 
dificación. F5 devuelve el control 
al menú anterior. F2 nos lleva a un 
submenú y pantalla diferente. 
Aquí podemos salvar, cargar, listar 
y borrar en disco los ficheros de 
sprites. 

La F3 nos conduce a una panta- 
lla particularmente útil donde se 
pueden variar el color de sprites, 
moverlos, colores de fondo, su- 
perponerlos, probar animación, 
etc. 

Cada una de estas pantallas, 
disco y banco de pruebas se ex- 
plican a continuación. 

La pantalla dedicada al disco 
presenta claramente el menú de 
opciones así como la hora del reloj 
interno. CARGAR, LISTAR y BO- 
RRAR no presenta ningún proble- 
ma. Pero antes de meternos en la 
opción SALVAR debemos indicar 
con los cursores y la barra espa- 
dadora de cuál a cuál queremos 



grabar en disco. Podemos tener 
30 sprites almacenados e intere- 
sarnos grabar sólo del 1 al 20. De 
todas formas antes de grabar el fi- 
chero se pregunta por esta cues- 
tión. 

Otra cosa a tener en cuenta es 
que no es necesario teclear la ex- 
tensión, SPR en este proceso. El 
programa lo inserta automática- 
mente. 

Los posibles mensajes de error 
de disco están indicados en una 
subrutina de errores con lo cual el 
programa no pierde el control 
(discos protegidos, falta de disco 
en la unidad, etc.). 

La opción PRUEBAS es otro 
submenú del programa. Aquí nos 
encontramos con una gran venta- 
na dentro de la cual se ubican to- 
dos los sprites diseñados o carga- 
dos desde un disco. Tenemos 
también la hora del reloj interno. 
Pasamos ahora a explicar cada te- 
cla. 

F1 y F2 seleccionan un sprite 
dentro del rango de SELECT 
(cuando entramos por primera vez 
de al 31), el sprite seleccionado 
parpadea. Con los cursores pode- 
mos moverlo dentro de la ventana. 
Cada sprite se desplaza por una 
determinada superficie, así el spri- 



te o (una cruz) pasará por delante 
del 1 y este por delante del 2 y así 
sucesivamente. 

F3 cambia el color del sprite se- 
leccionado desde el negro (O) 
hasta el blanco (15) para empezar 
de nuevo con el negro. 

F4 Varía el color de fondo de la 
ventana de igual modo que F3. 

F5 Devuelve el control al menú 
principal. 

La tecla BS accede aun subme- 
nú para animación de sprites. Este 
submenú pregunta de cuál a cuál 
sprite se quiere comprobar la ani- 
mación. Los cursores arriba/abajo 
aumentan o disminuyen la caren- 
cia de animación y BS regresa de 
nuevo al menú. Para usar adecua- 
damente esta opción hay que di- 
señar lógicamente los sprites ade- 
cuados y en el orden correcto. 

ESC cambia el modo de sprite 
(8X8 normal, 8X8 ampliado, 
1 6X1 6 normal y 1 6X1 6 ampliado). 
Cuando queramos hacer sprites 
de 16X16 debemos tener en 
cuenta la organización de estos 
en memoria, por ejemplo, el sprite 
y 2 del almacén en modo 1 6x1 6 
sería la mitad superior de dicho 
sprite y el 1 y el 3 la inferior. Obser- 
vamos que van de cuatro en cua- 
tro (0/3, 4/7, 8/11, etc.). Es cues- 
tión de practicar un poco. 

Las funciones de las teclas ESC 
y SELECT están programadas de 
tal manera que no se pueda poner 
por ejemplo sprites 1 27 al 1 59 en 
modo 16X16 ya que en este tipo 
de sprite sólo hay hasta 60. 

Sólo resta repetir que este pro- 
grama, aunque largo merece la 
pena, está pensado para MSX de 
segunda generación ya que prin- 
cipalmente utiliza la SCREEN 5, 
mucho más rápida y amplia que la 
SCREEN 2. 

Os deseamos felices diseños. 

José Carlos Tomás 
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Una observación 

El programa, por lo extenso que 
es (unos 19K), lo hemos reducido 
y debido a esto, algunas líneas re- 
sultan algo difícil de leer. Las más 
problemáticas son la 1 60 y el blo- 
que formado por las líneas 320 a 
420, donde los caracteres espe- 
ciales, pequeños de por sj, son al- 
go borrosos. Por este motivo, a 
continuación reproducimos di- 
chas líneas. 

Para finalizar, tenemos que re- 
saltar que, aunque el programa se 
haya desarrollado en un Philips 
VG-8235, funcionará con cual- 
quier ordenador MSX de la II ge- 
neración. En caso de intentar eje- 
cutarlo en un ordenador de la I ge- 
neración, aparecerá un mensaje 
de error, siendo imposible ejecu- 
tarlo. 

II SCREEN 5:MIDTH 37 ¡COLOR 7,1,1:CLS 
2t OPEN'grpi'AStl 

38 I=3:T=4:SP=1 :CC= 14 :B1 =8 :DIH SP*(8),S 
TZ(255)¡DC=38728:N$=SPACEI(12) 

41 R=t:I=8:P3=Í:X2=93:DIH C0H255) ,XX<2 
56),TI(256):DI=3872B 

51 PRESET(58,52):PRINTtl,"i 



61 PRESET(58,58) :PRINTtl IDISEÑO DE SP 
RITES) " 

71 PRESET(5f ,66) íPRINTil,"' 

■ ■ 

B8 PRESET(58,188):PRINTIl, u i 



98 PRESET (58 ,188) ¡PRINTIl ,'| ESPERA UN H 
MENTO! 1 

188 PRESET (58, 1161 :PRINTI1 ," 1 



118 COLOR !l:PRESETlie,lBI):PRINTIl,'«JO 

SE C. TONAS*' 
128 COLOR 5:PRESET(18,!98):PRlNTtl,"«HSX 

2*6/18/1986^ 
138 LINE(8,88)-(255,98),6,BF 
148 LINE(8,83)-(255,87),8,BF 
158 LINE18,85)-(255,B6),9,BF:F0R FJ=8 TO 
255:n(FI)=INT(RND(-TIHE)!248>:Y*( 

Fl)=INT(RNÜ(-TIHE)ll88):C0l(FI)=ttL 

INE(FM,88)-(FM,98),7:LINE(FI,88 

)-(FI,98) ,1:NEXT:BEEP 
161 KEY OFFiKET !,»V»KEY fcYViKET 2," 

V :KET 3,"ft" :KEY 4, , L":KET 5,"f:KE 



160 



KEY OFF :KEY 1,"V':KEY 6 , " V :KEY 
2, ,, V:KEY 3,"n" :KEY 4,"Z.":KEY 5, 
" r" :KEY 7,"r"-KEY 10,"»" 



320 
330 

340 
350 



360 
370 
380 
390 

400 

410 
420 



IF E$="oo" THEN 
IF E$=CHR$(13) 
QSUB 930:BEEP 
IF E*= n r" THEN 
IF"E*=CHR*(11) 
ÜSUB 2870:LINE 
15, BF 

IF E*=CHR*.<27> 



IF 
IF 
IF 
IF 
IF 
IF 



E*=" V 

E$="n" 
E$="Z." 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



RUN 

THEN GDSUB 2870 :G 

GÜSUB 1230 
THEN GÜSUB 1520 :G 
<43,165)-<55,181> , 



THEN GÜSUB 2130 
GÜSUB 1250 
GÜSUB 1340 
GÜSUB 1650 
GüSUB 1770 
GÜSUB 1880 
GÜSUB 440 



í 7,T":KET 18, "f 
178 SCREEN 5.8.8 
188 FOR F*l TO 8 
198 READ AS 

288 Sf=S$+CHR* (VAL ( "íth "+A*J ) 
218 NEXT 

228 SPRITE* (8)=S$ 

238 DATA 18,IB,18,H t ff ,18,18,18 

248 BOSUB 548 

258 E*=INKEY* 

268 PUT SPRITE 8,CX,T),15,8 
278 A=STICK(8) 

288 I»M2I((A«2 OR A=3 OR A=4))+12t((A 

=6 OR A=7 OR A=B1):IF X<0 THEN X=B7 

»ELSE IF K=>96 THEN X=3 
298 í=T-16t((A=4 OR A=5 OR A=6))*16»((A 

=8 OR A=l OR A=2)):IF T<3 THEN MI 

6íELSE IF Y=>1 19 THEN T=4 
388 PUT SPRITE 8,(1(,T) ,13,8 
318 IF STR 16(8) THEN BOSUB 918 
328 IF IWV THEN RUN 
338 IF E$=CHR$(13) THEN 60SUB 2878:B0SU 

B 938:BEEP 
348 IF E*='r' THEN BOSUB 1238 
358 IF E$=CHR$(11) THEN BOSUB 1528:60SU 

B 2B78:LINE(43,165)-(55,181),15,BF 
368 IF E$=CHR$(27) THEN 60SUB 2138 
378 IF UéSU THEN BOSUB 1258 
388 IF E$="V THEN BOSUB 1348 
398 IF E$='n" THEN BOSUB 1658 
488 IF lt*'V THEN BOSUB 1778 



418 IF Et=V THEN 60SUB 1888 

428 IF E$="V THEN BOSUB 448 

438 BOTO 258 

448 ' sprite aleatorio 

458 COLOR 15:PRESET(93,193):PRINTil,"F6- 

Randoi" 
468 RD=INT(RND(TIHE)tl3) 
478 FOR T=4 TO 12B STEP 16 
488 FOR X=3 TO 96 STEP 12 
498 RN=INT(RND(TIHE)tl5) 
588 IF RN>RD THEN BOSUB 918 
518 NEXT :NEXT :BEEP 

528 COLOR 1:PRESET(93.193):PRINTI1,"F6-R 

andón" 
538 RETURN 

548 COLOR 18,5,5:CLSsIH=8 

558 DEF USR8=I(H41 :U=USR8(B) 

568 FOR F=172 TO 178 STEP 2:LINE(8,F)-(2 

55,F),4;NEXT 
578 FOR F=238 TO 236 STEP 2:LINE(F,8)-(F 

,18) ,4:NEXT 
588 FOR F=238 TO 236 STEP 2 :LINE (F , 11 1 ) - 

(F,218),4:NEH 
598 LINE(8,12)-(182,136),1 ,BF 
688 LINE(0,8)-(96,12B),4,BF 
618 LINE(45,168)-(58,185),1,BF 
628 LINE(43,165)-(55,1B1),15,BF 
638 LINE(115,18)-(185,118),4,B 
648 LINE(186,18)-(286,118),4,B 
658 LINE(287,18)-(249,118),4,B 
668 LINE(176,166)-(228,198) ,12,BF:LINE(1 
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78,175)-(218,1B8),1,8F:F0R F=202 TO 
215 STEP 4¡LINE(F,178)-(F+2, 1881,1 
4,BF¡NEXT 

678 LINE(1B5,158)-(211,178),11,BF¡C0L0R 
18:PRESET(186,198)¡PRINTI1,"<F7>" 
688 LINE(98,148)-(178,218),4,B 
69» LINEÍ91 ,141)-í 169, 2891,5, BF 
788 GOSUB 1188 

718 COLOR 14:PRESET (124,8) ¡PRINTIl ,'BIN 
ARIO 

728 COLOR 9-.PRESET (194,8) ¡PRINTIl, "H 
738 COLOR 3:PRESET(217,8) ¡PRINTIl, "DEC 
748 PRESET (8,142) ¡PRINTIl , "CLR-BORRAR* 
758 PRESET (8 , 152) :PRINTI1 , "ESC-TODOS" 
768 PRESET(27,198):PRINTI1,"SPRITE' 
778 PRESET ( 148 , 1 15) :PRINTI1 , »RETURN A " 
788 COLOR 1:PRESET(128,125):PRINT!1,"<F1 

8> RESET" 
798 GOSUB 1558 
B98 DEF USR0=VH44:U=USR8(8) 
988 BEEP :RETURN 

918 IF POINT (X+4,Y+4)=4 THEN PAINT (X+4 
,Y+4) ,3:LIHE(X-1 ,Y-2) -ÍX+B ,Y+1 1 ) ,4, 
B:PSET(X/12+45, Y/16+170) , 1 :PLAY"s8» 
388o8v6164a a ,"s0i300164c" ¡RETURN 

928 IF POINT (X+4,Y+4)=3 THEN PAINT (X+4 
,Y*4),4:LINE(X-2,Y-3)-(X+10,Y*13),3 
,B:PSET()(/12+45,T/16M70),15:PLAr , 5 
0i30o8v61 64d " , "s0i3001 64f 1 :RETURN 

930 ' rutina conversión 

948 IF Ifl=l THEN LPRINT'SPRITE BINAR 
10 H DEC "¡LPRINT 

950 A$="" :B*=- B :Y1=28:Y2=0 

960 FOR N=170 TO 177 

970 FOR F=45 TO 52 

988 IF P0INT(F,N)=1 THEN A$=A$+'l" :B$=B$ 
+"|' 

998 IF POINT (F,N)=15 THEN A$=A$+"8" :B$=B 
1880 NEXT 

1010 BI=VAL("i.B"+A*) 

1828 H*=HEX$(BI)¡IF LEN(H$)=1 THEN H$='8 
°+H$ 

1838 COLOR 1:PRESET(Í20,Y1) ¡PRINTIl, A* 
1848 COLOR l:PRESET(198,ri):PRINTtl,H$:P 

RESET(208.yi):PRINTtl,BI:PLAT"oB116 

s8i300d" 

1850 IF IH=1 THEN LPRINT B$;" "¡Al;" ";H 
";BI 

1868 A$=*":B$='":Y1=Y1+10:Y2=Y2+1 
1070 NEXT 

1888 IF IH=1 THEN LPRINT" 



1118 PRESETI93.153) 
1128 PRESET (93, 163) 
1130 PRESET (93, 173) 
1140 PRESET(93,!83> 
1158 PRESET(93,193) 
1168 RETURN 
1170 COLOR lsPRESET 

Guarda" 
1180 PRESET(93,153) 



PRINTIl, "F2-Espej>" 
PRINTI1,"F3-Giro90" 
PRINTtl,"F4-Espej 4 " 
PRINTIl,"F5-Varios" 
PRINTIl,"F6-Randoi" 

93,143) :PRINTI1,"F1- 

PRINTIl,"F2-Disco" 



Invers 
1330 RETURN 
1348 ' Espejo* 

1350 COLOR 15:PRESET(93,153):PRINTI1,"F2 

-EspejV:BEEP 
1360 GOSUB 1 528 ¡GOSUB 2870 
1370 P=3:P1=4 
1388 FUR F=170 TO 177 
1390 FOR N=52 TO 45 STEP-1 




1090 RETURN 

1180 COLOR l:PRESET(93,143):PRINTtl,"Fl- 
Invers" 



1190 PRESEK93.163) ¡PRINTtl . "F3-Prueba" 
1200 PRESET (93, 173) ¡PRINTIl ,"F4-Copia" 
1210 PRESET (93, 183) ¡PRINTIl ,"F5-Henú" 
1220 RETURN 

1230 IF IH=0 THEN BEEP : IM= 1 ¡FOR F=155 TO 
170 STEP 2:LINE(190,F)-(205,F),1:N 
EXT:LINE(1B2,178)-(184,180),B,BF:RE 
TURN 

1240 IF I«=l THEN BEEP : IM=8 :FOR F=155 TO 
170 STEP 2:LINE(190,F)-(205,F),11: 

NEXT:LINE(182,178)-(1B4,180),1,BF¡R 

ETURN 
1258 ' Invierte 

1268 COLOR 15:PRESET(93, 143) ¡PRINTIl, "Fl 

-Invers* ¡BEEP 
1270 GOSUB 2870 
1280 FOR Y=4 TO 128 STEP 16 
1290 FOR X=3 TO 96 STEP 12 
1300 GOSUB 910 
1318 NEXT :NEXT ¡BEEP 

1328 COLOR 1 ¡PRESET (93, 143) ¡PRINTIl ,"F1- 



1400 IF P0INT(N.F)=1 THEN PAINT(P,P1) ,3: 

LINE(P-l,Pl-2)-(P+8,PlMl),4,B:PLAY 

"o3164sl5B200e" 
1410 P=P+12¡NEXT 
1420 P=3:P1=P1+16:NEXT 
1430 P=45¡P1=170 
1440 LINE(43,165)-(55,181),15,BF 
1450 FOR F=4 TO 128 STEP 16 
1460 FOR N=3 TO 96 STEP 12 
1470 IF POINT (N,F)=3 THEN PSET(P,P1) ,1 : 

PLAY"o8164sl5i300q" 
1480 P=P+1:NEXT 
1490 P=A5:P1=P1+! :NEXT 
1580 COLOR 1 ¡PRESET (93. 153) ¡PRINTIl, "F2- 

EspejV 
1510 BEEP ¡RETURN 

1520 ' Borrado pantalla gráírica 

1 530 S0UND6 , 1 ¡ SOUNDB , 1 6 : SOUND 1 , 1 3 : S0UND7 

,1¡S0UND13,8¡S0UND12,25 
1548 LINE(8,8)-(97, 129), 4,BF 
1558 FOR Z=8 TO 1 



MSX 37 



utilidades 



1568 FDR F=0 TO 96 STEP 12 
1571 LINE(F+Z,0)-(F+Z,128),3 
1586 NE1T 

1599 FOR F=0 TO 12B STEP 16 

1689 LINE(0,C+Z)-(96,F+Z),3 
1610 NEXT 

1628 NEXT 

1638 PSET(97,129),3:BEEP 
1648 RETURN 
1658 ' Giro 98 

1668 COLOR 15:PRESET(93, 163) ¡PRINTIl, "F3 

-6iro98":BEEP 
1670 GOSUB 1528:G0SUB 2870 
1680 P=3:P1=4 

1690 FOR F=45 TO 52 

1708 FOR N=177 TO 178 STEP-1 

1718 IF POINT(F,N)=l THEN PAINT(P,P1) ,3: 

LINE(P-l,Pl-2)-(P+8,Pl+ll),4,B:PLAY 

"oll64sl8*2888a" 
1728 P=P+12:NEXT 
1738 P=3:P1=P1+16:NEXT 
1748 60SUB 1430 

1758 COLOR 1:PRESET(93, 163) ¡PRINTIl, 'F3- 

Giro98" 
1768 RETURN 
1778 ' Espejo A 

1788 COLOR 15 :PRESET (93 ,173) ¡PRINTIl , "F4 

1798 6DÍGI J f52e :60SUB 2870 
1888 P=3:P1=4 

1818 FOR F=177 TO 170 STEP-1 
1828 FOR N="45 TO 52 

1838 IF P0INT(N,F)=1 THEN PAINT(P,P1) ,3: 
LINE(P-l,Pl-2)-(P+8,Pl*ll),4,B:PLAY 
a o5132sl0«300b* 

1840 P=P+12:NEXT 

1850 P=3:P1=P1+16:NEXT 

1860 GOSUB 1430 

1878 COLOR 1 :PRESET(93,1?3) :PRINT#1 ,"F4- 

Espej/ ¡RETURN 
1888 ' Sprites selección 
1898 PN=1 

1988 COLOR l:PRESET(35,288):PRlNTtl,I 
1918 LINE(91,141)-I165,200),5,BF 
1920 LINE(X2,194)-(X2+13,287) ( 15,B 
1930 GOSUB 2760:PLAY"118sl2oi308a" ¡GOSUB 

1170 
1948 E$=INKEY$ 
1958 A=STICK(8) 

1968 LINE(X2,194)-(X2+13,287),15,B 
1978 IF A=7 THEN GOSUB 2498 
1988 IF A=3 THEN GOSUB 2668 
1998 IF A=l THEN GOSUB 2780 
2000 IF A=5 THEN GOSUB 2730 
2818 IF E$='V THEN GOSUB 2390 
2020 IF EI="V THEN GOSUB 3700 



2830 IF E$="«" THEN RUN 2230 

2840 IF E*=V THEN GOSUB 2820 ¡GOSUB 292 2240 

8 ¡GOSUB 2828 ¡RETURN 2250 

2850 IF E$=CHR$(11) THEN GOSUB 1520:GOSU 2260 

B 287&:LINE(43,165)-(55,1B1),15,BF 

2060 IF E$=CHR$(27) THEN GOSUB 2130 2270 

2878 IF ít='V THEN GOSUB 2538 2288 

2888 IF E$="r» THEN GOSUB 1230 2290 
2090 IF E$=V THEN LINE(93,194)-(166,20 

7),5,BF:C0L0R 1 ¡GOSUB 2828 :PLAY" 1 10 2308 

sl2§300b" ¡GOSUB 1100:LINE(35,200)-( 2310 

65,218) ,5.BF:PN=0:RETURN 
2100 IF E$=CHR$(13)THEN GOSUB 2870 ¡GOSUB 

2208:BEEP 2328 
2118 LINE(X2,194)-(X2+13,287),5,B 

2128 GOTO 1948 2338 



H=4:P=1:F0R F=DI+8íI TO 7+<DI*8»I) 
A$='88800000 , *BIN$(VPEEK(F)) 

A*=RI6HT*(A$,8):B$=*" 

FOR N=l TO 8¡IF f1ID$<A$,N,l)='l' TH 

EN B$=BJ+T ELSE B$=B*+' " 

NEXT 

BI=VALCtB"+A$) 

H$=HEX$IBI):IF LEN(H*)=1 THEN H$="0 
"+H$ 

COLOR 1:PRESET(128,Y1):PRINTI1,A$ 
COLOR 1 :PRESET(190,Y1) ¡PRINTIl ,H$:P 

RESET(20B.Y1) ¡PRINTIl ,BI:PLAY"o8116 
s8ü)300c" 

IF m THEN LPRINT B*¡" •jA*;" " ¡H 
$;" ":BI 

OJ=° B :Bt=°"¡Y!=Yl*!0:Y2:y2+¡ 
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;F2-5ísgo 
;F 3 - Pr-uefoa 
|F 4-Co r> ia 
i F 5 -Menú. 




2130 DI=30720:I1=I 

2140 FOR NP=0 TO 255:I=NP:PRESET(35.200) 

¡PRINTIl, NP;" 1 
2150 FOR M1=DI+8«NP TO 7+IDI+81NP) 
2160 IF VPEEK(H1)<>0 THEN 60=1 
2170 NEXT 

2180 IF 60=1 THEN GOSUB 2870 ¡GOSUB 2200: 
GO=0 

2190 NEXT : 1=1 1 ¡PRESETI35,288) ¡PRINTIl ,1 ; 

■ ":BEEP:60SUB 2878 ¡RETURN 
2288 ' valores de sprite 
2218 IF IH=I THEN LPRINT'SPRITE BINA 

RIO H DEC ' ¡LPRINT 
2228 A$=* , :B$='*:Y1=20:Y2=0 



2348 NEXT 
2350 IF 111=1 



THEN LPRINT" ¡ 



2368 RETURN 

2370 LINE(X2,194)-(X2+!3,207) ,4,B:RETURN 
2380 LINE(X2.194)-(X2+13,207) ,15,B¡RETUR 
N 

2398 ' aliacen sprites 

2480 COLOR 15:PRESET(93, 143) ¡PRINTIl, "Fl 

-Guarda" ¡GOSUB 2370 
2418 A$=" n :VP=BC+8U:PE=8:F0R N=4 TO 128 

STEP 16 
2428 FOR «=3 TO 96 STEP 12 
2430 IF P0INT(t1,N)=3 THEN A$=Af+ - i" 



38 MSX 



2440 IF P0INT(H,N)=4 THEN AS=AS+"0* 
2458 NEXT 

2468 VPOKE VP+PE ,VAL ( D Stb B +A$) :PLAY"164a" 

,"164cyo8sl2a300164e" 
2478 PE=PE+1:A$="":NEXT 
24B8 COLOR 1 :PRESET (93 , 143) ¡PRINTtl ,"F1- 

6uarda":BEEP ¡GOSUB 2380 : RETURN 
2498 IF I<8 THEN 1=0 ¡RETURN 
2580 IF X2<=93 THEK RETURN 
2518 I=I-1:LINE(X2,194)-(X2+13,207),5,B¡ 

X2=X2-12:LINE (X2,194) -ÍX2+13,287) , 1 

5,B:PRESET<35,288):PRINT*1,I;' 1 
2528 PLAY"164o3slnl00a" ¡RETURN 
2538 ' Copia sprite 
2548 GOSUB 2378 

2558 LINE(43,165)-(55,181),15.BF 



Copia'. -BOSUB 2380:BEEP 
2658 RETURN 

2660 IF I>=255 THEN I=255:RETURN 

2678 IF X2>=153 THEN RETURN 

2688 1=1+1 :LINE(X2,194)-(X2+13,2e7) ,5,B: 

X2=X2+12:LINE (X2 , 1 94 ) - ( X2+1 3 , 2071,1 

5,B:PRESET(35,209) :PRINTtl ,1 ■ 
2690 PLAri64o3slil08a":RETURN 
2708 IF K=5 THEN RETURN 
2710 I=I-6:P3=P3-6:PRESET(35,280) ¡PRINTt 

1,1;" "¡GOSUP 2768 
2728 PLAY"164o3slii!l00a" ¡RETURN 
2730 IP I >=252 OR (X2=141 AND 1=250) OR 

ÍX2=153 AND I=25i) THEN RETURN 
2748 1=1+6 ¡P3=>3+6 ¡PRESET (35 .288) ¡PRINTI 

1.1:" • :SOSÜB 2 7 60 



2560 PRESET (93, 173) ¡COLOR 15:PRINTtl,"F4 2750 

-Copia" ¡GOSUB 1520 2760 

2570 DI=30720:H=4:P=1:FOR F=DI+8tI TO 7+ 2770 

(01+8*1) 2780 

25B0 Dt='00000000"+B1N$(VPEEK(F1) 2790 

2590 D*=RIGHT$(D*,8> 2888 

2601 FOR N=3 TO 96 STEP 12 2810 

2610 IF HID*(D$ t P, 1)=M" THEN PAINT IN,H 2320 

) ,3:LINE(N-l,N-2)-(N+8,H+ll) ,4,B:PS 2830 

ET(N/12+45,n716+170),l¡PLAY'164o2sl 2848 

2i300a' 2850 

2620 P=P+1 ¡NEXT :H=H+16:P=l 2860 

2631 NEXT 2870 

2640 PRESET (93, 173) ¡COLOR 1 ¡PRINTtl ,"F4- 2880 



PLAY , 164o3£lBl8ea u :RETURN 
P=96 

FOR N=8 TO 5 

IF P3+N>255 THEN RETURN 

PUT SPRITE N,(P,196).1,P3+N 

?=P+12:NEXT 

RETURN 

P=96 

S1=8:F0R N=B! TO Bl+31 

PUT SPRITE SI, (255,230), 1,N 

P=P+12:S1=S1+1:NEXT:S1=0 

RETURN 

'Borrado pantalla nui. 
LINE(116.!U-(134,109),5,BF 



2898 LINE(187,11)-(205,109),5,BF 
2988 LINE(288,11)-(24B,189),5,BF 
2918 RETURN 

2928 ' Banco de pruebas 

2938 X=108:Y=188:SP=!:CO=i:COLDR 1,12,12 

¡CLS : ¡DEF USR0=65 :U=USR0 10) :PLAY°o3 

12s8»9000a' 
2940 I1=0:SC=0;PO=8 
2950 VDP(1)=SC+(VDP(1) AND 252) 
2968 GOSUB 3558 

2978 LINE(8,130)-(255,137),1.BF 
2988 LINE(8,8)-(255,130),CC,BF 
2990 LINE(0,0)-(255,130),15,B 
3000 COLOR 1 ¡PRESETI0, 140) ¡PRINTtl, "SPRI 
TE:' 

3010 PRESET(74,148)¡PRINTI1,PR 
3020 PRESETI0, 153) ¡PRINTtl, 'Fl-F2-Selec. 
sprite" 

3030 PRESET (8 , 1 63) ¡PRINTtl ,"F3-Color Spr 

ite';CO(PR) 
3040 PRESET(0, 173) ¡PRINTtl, "F4-Color Fon 

do ";CC 

3050 PRESET (0,183) ¡PRINTtl, 'F5-Henú BS- 
Aniaado' 

3060 PRESET(0, 193) ¡PRINTtl, 'SELECT-sprit 

es:"¡C0L0R 15 :PRESET ( 1 18 , 193) ¡PRINT 

#1 ,B1 ;"a" ¡Bl+31 
3070 COLOR 1 :PRESET(0,203) ¡PRINTtl ,'ESC- 

Hodo sprite : U ;BÍ 
30B0 LINE(175,157)-(245,170),7,B 
3090 GOSUB 3300 
3100 DEF USR0=68:U=USR0(0) 
3110 E*=INKEY*:A=STICK(0) 
3128 IF E$='V THEN GOSUB 3430 
3130 IF E$='V THEN GOSUB 3470 
3140 XI(PR)=XI(PR)-QI(A=2 OR A=3 OR A=4) 

+QI(A=6 OR A=7 OR A=8):IF XI(PR)>25 

5 THEN X2(PR)=-32 
3150 IF XKPRX-32 THEN Xi(PR)=255 
3160 YI(PR)=YI(PR)-Qt(A=4 OR A=5 OR A=6) 

+Q»(A=8 OR A=l OR A=2):IF YI(PR)=M 

22-PO THEN YÍ(PR)=0 
3170 IF YKPRX0 THEN YZ(PR)=122-P0 
3180 IF E$='L" THEN GOSUB 3398 
3190 IF Et=CHR$(24> THEN GOSUB 3310 
3208 IF E$=CHR$<27) THEN 60SUB 3600 
3210 IF E$=V THEN GOSUB 3520 
3220 IF E$=CHR*(8) THEN GOSUB 5030 
3230 IF E$= u f THEN PLAY"o312s0«9000a" :D 

EP USR0=65:U=USR0(0) ¡GOSUB 2820:GOS 

UB 540 ¡VDP ( 1 ) =8+ ( VDP ( 1 ) AND252) ¡RETU 

RN 

3248 PUT SPRITE SF,(XI(PR) ,YI(PR)) ,14,PR 
3250 PUT SPRITE SF,(XI(PR) ,Y2(PR)) ,C02(P 
R),PR 

3260 IF Ef<>" THEN Q=Q+.5:G0T0 3110 
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3278 0=1 

3288 6ET TIME PR$:C0L0R 14 :PRESET ( 188 . 16 

8):PR1NT#1,PR* 
3298 GOTO 3118 

3388 S2=8:F0R F=B1 T0 Bl+31 :PUT SPRITE S 
2,(n(F),U.(F)),C02(F),F:S2=S2+l:NE 
XT ¡RETURN 

3318 SF=8:PLAT , o35l4*988ad" 

3328 Bl=Bl+32 

3338 IF SOI AND Bl>68 THEN Bl=8 

3348 IF Bl>224 THEN Bl-0 

3358 60SUB 3388 :PRESET( 118, 193) ¡COLOR 15 

:PRINTtl,Bl;"a";Bl+31;" 
3368 PR=B1:PRESET(74,148) :PRINT#1 ,PR;" 



3488 IF PR=>B1+31 THEN RETURN 

3498 PR=PR+1 :SF=SF*t :PRESET (74,148) :PRIN 

TIl.PR 
3588 GOSUB 3538 
3518 RETURN 

3528 COI (PR) =C02 (PR) +1 :PLAT'o8sli988164d 

":IF COZ (PR) >15 THEN C02(PR)=1 
3538 PRESET(128,163) :PRINTtl,C02(PR) 
3548 RETURN 

3558 IF SC=8 THEN Q*='8xB Norial ':P0 
=8 

3568 IF SC=1 THEN Qí='8x8 Aapliado" :P0 
=18 

3578 IF SC=2 THEN 0$=' 16x1 6 Nomal ':P0 
=18 




3378 SOSUB 3538 


3588 


IF SC=3 THEN Q$=" 16x16 Ampliado" :P0 


3388 RETURN 




=22 


3398 CC=CC+1:IF CC>15 THEN CC=1 


3598 


RETURN 


3488 PLArols8n5888164a':PRESET(128,173) 


3688 


' caibio de tipo 


:PRINTI1,CC 


3618 


DEF USR8=65:U=USR8(8):PLAT"12o7s8il 


3418 LINE(1,1)-(254,129),CC,BF 




9789ae":G0SUB 2828 


3428 RETURN 


3628 


SC=SC+1:IF SC>3 THEN SC=8 


3438 IF PR=<B1 THEN RETURN 


3638 


IF BD63 AND SOI THEN SC=8 


3448 PR=PR-1:SF=SF-1:PRESET(74,148):PRIN 


3648 


GOSUB 3558 


Ttl.PR 


3658 


COLOR 1 :PRESET(8,283) :PRINTtl ,"ESC- 


3458 GOSUB 3538 




lodo sprite:";Q$ 


3468 RETURN 


3668 


VDP(l)=SO(VDP(l) AND 252) 


3478 IF SOI AND PR>63 THEN RETURN 


3678 


GOSUB 2828 ¡GOSUB 3388 



3688 DEF USR8=68:U=USR8(8) 
3698 RETURN 

3788 ' Salvar cinta w disco 
3718 DI=8:DF=8 ¡GOSUB 2828 
3728 COLOR 1 ,6,6:CLS:BEEP 
3738 ON ERROR 60T0 4898 
3748 DEF USR8=65:U=USR8(8) 
3758 LINE(15,15)-(185,143),1,BF 
3768 LINE(137,68)-(235,117),1,BF 
3778 LiNE(18,18)-(188\135),5,BF 
3788 LINE(15,12)-(17,19),1,BF 
3798 LINE(22,18)-(98,38),15,BF 
3888 CIRCLE(55,78),17,14,,,1.34 
3818 PAINT(55,78),14 
3828 LINE(53,68)-(56,72),1,BF 
3838 LINE(22 1 135)-(B3,188),4,BF 
3848 LINE(38,188)-(83,135),14,BF 
3858 LINE(65,184)-(75,132),4,BF 
3868 LINE(133,55)-(238,118),2,BF 
3878 LINE(133,55)-(238,118),3,B 
3888 LINE(148,21)-(218,31),1,BF 
3898 LINE(145,18)-(2!5,28),14,BF 
3988 C0L0R,2:PRESET(138,68):PRINTI1,'F1- 
Salvar" 

3918 PRESET(138,78) :PRlNTtl , "F2-Cargar" 
3928 PRESET ( 1 38 , 88 ) : PR I NTI 1 , 'F3-L i st ar " 
3938 PRESET(138,98):PRINTIl, , F4-Borrar" 
3948 PRESET(138,168):PRINTtl,"<- Sprite 

3958 PRESET (158,178) :PRINTI1 , 'Space-F i j a 
r" 

3968 PRESET (138, 188) :PRINTtl , "F5-r1enil" 
3978 LINE(168,135)-(228,155),1,BF 
3988 LINE(155,138)-(215,158),2,BF 

3998 LINE(155,139)-(215,158),3,B 
4888 11=8 

4818 PRESET(178,137):PRINTtl,Il 

4828 DEF USR8=68:U=USR8(8) 

4838 COLOR 1 ,15:N1=LEN(N$)-4:PRESET(25,1 

5):PRINTI1,LEFT$(N$,N1):C0L0R1,2 
4848 E$=INKEY$ 

4858 IF E$="V THEN GOSUB 4158:6OT0 3788 
4868 IF E$='V THEN SOSUB 4388 ¡GOTO 3788 
4878 IF E$=T" THEN GOSUB 4398:RETURN 
4888 IF E$=V THEN GOSUB 4598:G0T0 3788 
4898 IF E$='l" THEN GOSUB 4788 ¡GOTO 3788 
4188 IF E$=CHR$(29) THEN C0L0R t 2:6DSUB 4 
418 

4118 IF E$=CHR$(28) THEN COLOR ,2 :S0SUB 4 
468 

4128 IF E$= B ■ THEN GOSUB 4518 
4138 GET TIME PR$:COL0R 4,14:PRESET(158, 

28):PRINTI1,PR$ 
4148 GOTO 4848 

4158 COLOR 7,1,1:CLS;SCREEN 8:SV=1 
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4160 



PRINT SPCI9) ;" 
i";SPC(20 



¡SALVAR FI 

CHEROSI " ;SPC(2e) 

'"¡PRINTíPRINT 



4170 
4180 

4190 
4281 
4218 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 



432? 
4330 
4340 
4350 
4360 
4370 
4380 
4390 



•a» 



4410 



FILES"a:I.SPR":PRINT:PRINT 
PRINT'Salvar de sprite«\-AS; 
";BS¡"(S/N)":PRINT 
E$=INKET$ 

IF EJ="s" THÍN GOTO 4230 

IF E$=V THEN SCREEN SíRE'URN 

60T0 4190 

GOSUB 4530 

SOSUB 4558 

N$=N$+\SPR" 

CN ERROR SOTO 4890 

SCREEN 5' 

8SAVE N$,DI,DF,S 

RETURN 

COLOR 7 ,1,1:CLS ¡SCREEN 

PRINT SPC(9)¡", 

t ";SPC (20 );."| CARGAR FI 

CHER0S|";SPC(28)¡ ,L 

' " íPPINT:PRINT 

F!LES"a:t.SPR" :PRINT:PRINT 

GOSUB 4530 

60SUB 4550 

N$=N$+\SPR" 

SCREEN 5 

BLOAD N$,S 

RETURN 

DEF USR0=65:U=USR0(0) 
GOSUB 540 ¡RETURN 

COLOR 1 1 ¡PRESET ( 130 , 160) ¡PRINTtl , 1 < 



4428 I 1=1 1-1 r IF I1<=0 THEN 11=0 
4438 COLOR 1:PRESETU78, 137) ¡PRINTtl, II 
4440 COLOR 1 :PRESET(138, 168) ¡PRINTtl, ■<■ 
4450 IF INKEY$<>"" THEN GOTO 4410 ELSE R 
ETURN 

4460 COLOR 11:PRESETI218,160):PRINTI1,"> 

4478 11=11+1 ¡IF Ii>=255 THEN 11=255 
4488 COLOR l:PRESET<178,137):PRINTtl,Il 
4490 COLOR 1 ¡PRESETI218, 160) ¡PRINTtl, ■>" 
4500 IF INKEYJO"" THEN GOTO 4460 ELSE R 
ETURN 

4510 IF FJ=0 THEN DI=I1:AS=I1:FJ=1 ¡PRESE 
T(0 f !98):PRINTIl, "Desde sprite:';DI 
":DI=DC+8IDI;BEEP:RETURN 

4528 IF FJ=1 THEN DF=I1 :BS=I1 :FJ=0:PRESE 
T(0,200):PRINTI1, "Hasta spnte:";DF 
;* ";DF=(DC+8IDF)+7:BEEP;RETURN 

4530 IF DF<DI THEN SNAP DF.DI 

4548 RETURN 

4550 COLOR 7,1 

4560 I NPUT " NOMBRE >";N$ 




4570 IF L£N(N$)>8 THEN GOTO 4560 
4580 RETURN 

4590 COLOR 7 ,1,1 ¡SCREEN 
4600 PRINT V 



i ÍLISTAR FICHEROS" 
RESORAI 1 



II--IHP 



4760 IF INKEY$=" " THEN GOTO 4760 
4778 SCREEN 5:RETURN 
4788 COLOR 7, 1,1 ¡SCREEN 8 

4790 PRINT SPC(9);'i 

T;SPC(28);'I BORRAR FI 

CHER0S| , ;SPC(28);" 



'¡PRINTíPRINT 



1 IP— PANTALLA |";SPC( 

23) ¡«i j" 

4610 Ef=INKEY$ 

4620 IF E$=V THEN 6CT0 4720 
4630 IF E$="p u THEN GOTO 4650 
4640 GOTO 4610 

4658 CLS:PRINT"Espere un Miento" ¡PRINT 
4668 FILES"a;I.SPR" 
4678 LOCATE 0,0;PR;nT" 
4680 FOR N=2 TO 21 ¡LOCATE I2,N:PRINT"s" : 
NEXT 

4690 LOCATE 0,22¡PRINT"<Pulse una teda) 
■ 

4780 IF INKEY$="" THEN GOTO 4788 
4710 SCREEN 5 ¡RETURN 
4720 LOCATE 8,3:PRINT"Conecte la upreso 
ra' 

4738 LPRINTTICHEROS DE SPRITES" :LPRINT 
4748 LFILES*a:t.SPR" 

4758 LOCATE 0,22¡PRINT"«Pulse una tecla 
»' 



4880 FILES'asl.SPR" 

4B18 PRINT ¡PRINT : INPUT"¿CUAL BORRO' ;N$ 

4820 N$=N$+".spr'¡KILL H$ 

4830 IF N$OSPACE$(12) THEN PRINT :PRINT 

N$¡" borrado." ¡PRINT 
4848 PRINT"¿Quieres borrar otro?' 
4858 Eí=INKET$ 

4860 IF E$=*s" THEN N$="¡GOTO 4780 
4870 IF E$=V THEN N$=" ¡SCREEN 5:RETUR 
N 

4880 60T0 4850 
4898 'rutina errores 

4900 IF SV=1 AND ERRO68 THEN SV=8¡RESUH 
E NEXT 

4910 SCREEN 8¡C0L0R 15,6,6 
4920 IF ERR=66 THEN ER$="Disco lleno"OK 
4930 IF ERR=698 THEN ER$="Error I/O" 
4940 IF ERR=70 THEN ER$='No hay disco* 
4958 IF ERR=68 THEN ER$='Disco'protegido 

4968 IF ERR=53 THEN ER$="No existe fiche 
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utilidades 



ro "+N* 

4970 IF ERR=56 THEN ER*='No*bre incorrec 

4988 PlAY'sMilIfttabc' , *sl0iI000cde' , "03 

4999 CX=(37-LEN(ER$))/2 

5008 LOCATE CX ,ie:PRINT ER$:N$=SPACE$¡12 

):FOR F=1TO1808:NEXT 
5010 SCREEN 5:RE5UHE 5020 
5028 RETURN 
5030 ' anidación 

5948 PLftY"sl»ie88o6a','sl8«188ec" 

5050 COLDR 1,CC 

5060 IF CC=1 THEN COLOR 15 

5070 EN=0 

5088 LINE(167,146)-(248,186),1,BF 
5090 LINE(160,141)-(244,181),CC,BF 
5100 LINE(159,140)-(245,182),15,B 
5110 PRESETU61 ,142) :PRINTI1, 'Desde:' :PR 
ESET(205,142):PRINTfl,Nl:PRESET(161 

,152) :PRINT#1 :PRESET( 165,16 

2) :PRINTI1 ,'<CURSORES>* :PRESET(180 , 
172):PRINTtl,"f SPACE" 



5128 E$=INKEY$ 

5138 IF E$=CHR$(29) THEN 60SUB 5340 
5140 IF E$=CHR$(28) THEN GOSUB 5380 
5150 IF Eí=CHR*(32) THEN GOSUB 5420 
5160 IF EN=2 THEN COLOR 1,12:RETURN 
5170 GOTO 5120 

5180 IF N1>N2 THEN SHAP N1,N2 

5190 PRESET! 163, 145) :PRINTI1,V:PRESET( 

163,155):PRINTfl,'":PRESET(163,170 

hPRINTtl/BS" 
5200 E$=INKEY* 
5210 FOR F=N1 TO N2 
5220 PUT SPRITE 0,(194,145) ,COI(F) ,F 
5230 FOR H=l TO PArNEXT 
5248 IF E*=CHRI(31) THEN PA=PA+1 
5250 IF Eí=CHR$(30) THEN PA=PA-i 
5260 IF E*=CHR$(8) THEN 6OTO5290 
5270 NEXT 
5280 60T0 5200 

5298 PUT SPRITE 8, (XZ(PR) ,T2(PR) ) ,COI(PR 

M 

5380 LINE(159,140)-(248,186),12,BF 
53Í0 LINE(175,157)-(245,170),7,B 



5320 PLAY-slil00o6a o , u 5l8»108c s 

5330 RETURN 

5340 IF EN=0 THEN N1=N1-1:IF N1=<0 THEN 
N1=0 

5350 IF EN=1 THEN N2=N2-1:IF N2=<8 THEN 
N2=0 

5360 PRESET(205,142) :PRINTI1,N1:PRESET(2 

85,152) :PRINTtl,N2 
5370 RETURN 

5380 IF EN=8 THEN N1=N1+1:IF Nl=>255 THE 
N NI =255 

5398 IF EN=1 THEN N2=N2+1:IF N2=>255 THE 
N N2=255 

5400 PRESET (205 ,142) :PRINTtl ,N1 :PRESET (2 

05,152) :PRINT#1,N2 
5410 RETURN 

5420 IF EN=1 THEN LINE(160,141)-(244,1B1 

),CC,BF:GOSUB 5180 :EN=2 ¡RETURN 
5430 EN=1:BEEP 

5440 PRESET (161 ,152) :PRI NT#1 , "Hasta :PR 

ESET (285 ,152) :PRINT#1 ,N2 
5450 PLAY"5l«1888o6a" , B sl8*1888c" 
5460 RETURN 
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[ñ programa en BASIC sirve 
para realizar repetidamen- 
te una serie de sentencias 
encaminadas a obtener unos re- 
sultados concretos. Pero para que 
un programa BASIC se ejecute es 
necesario introducir una serie de 
datos. Podemos hacer esto de va- 
rias formas y, vamos ahora a ver 
cómo hacerlo desde el teclado. 

En la mayoría de los programas 
se precisa introducir ciertos datos 
desde el teclado. En BASIC MSX 
existen varias instrucciones para 
hacer esto. La primera de ellas es 
la instrucción INPUT, que tiene la 
siguiente forma: 

INPUT ["MENSAJE";]VARIABLE 
1 [.VARIABLE 2 ] 

donde MENSAJE es precisamen- 
te eso, un mensaje que podemos 
incluir en la sentencia INPUTy que 
aparecerá en el monitor. General- 
mente, se usa para recordarnos 
cuáles son las variables que se 
deben introducir. MENSAJE es 
opcional (incluiremos entre cor- 
chetes todo lo que sea opcional) y 
debe ir entre comillas. VARIABLE 
1 es cualquier variable aceptada 
por BASIC MSX (entera, real o al- 
fanumérica) y es obligatoria: cada 
vez que se utiliza una sentencia 
INPUT es preceptivo el uso de al 
menos una variable; pero con esta 
sentencia se pueden utilizar tantas 
variables como permita una línea 
de programa (recuerda que una 
línea de programa puede tener un 
máximo de 255 caracteres). Por 
tanto, la VARIABLE 1 es obligato- 
ria, pero el resto de las variables 
son opcionales. Veamos un ejem- 
plo de utilización de esta senten- 
cia: Supongamos que en nuestro 
programa vamos a introducir des- 
de el teclado el nombre de una 
persona y su número de teléfono; 
para ello utilizamos una sentencia 




el teclado y desde un fichero de 
acceso secuencial 



INPUT de la siguiente forma: 

10 INPUT "Nombre, 
Teléfono";N$,T% 

que, una vez ejecutada hará que 
aparezca en el monitor lo siguien- 
te: 

Nombre, Teléfono ? 

a lo que debemos contestar con el 
nombre, una coma y el número de 
teléfono, así: 

José Pérez, 1 234567 

la coma le indica al intérprete BA- 
SIC que lo que está escrito antes 
de ella corresponde a una varia- 
ble y lo que está escrito a conti- 
nuación corresponde a otra. 

La sentencia INPUT permite in- 
troducir datos tanto numéricos co- 
mo alfanuméricos separados por 
comas, por tanto la coma no pue- 



de incluirse como parte de un dato 
alfanumérico. Si, por ejemplo, es- 
cribimos: 

10 INPUT "Dirección",D$ 

no podremos contestar: 

Calle del Pez, 1 5 

porque el intérprete entenderá 
que Calle del Pez es un dato y 1 5 
otro y responderá con el mensaje 
de error. 

Extra ingnored 

que quiere decir que, como sólo 
estaba esperando un dato para 
asignarlo a la variable D$, ignora 
el segundo que se le ha dado (el 
15). 

No está permitido escribir, por 
ejemplo: 

10 INPUT "Nombre";N$, 
"Teléfono";T% 




ya que el intérprete nos dará un 
Syntax error in 10 como respuesta. 
Esto se debe a que no se pueden 
poner varios mensajes en una 
sentencia INPUT. Por tanto, todos 
los mensajes deberán ir al princi- 
pio de la sentencia. 

Sin embargo, es posible asignar 
la coma y otros caracteres espe- 
ciales a una variable alfanumérica 
con ayuda de la sentencia: 

LINE INPUT ["MENSAJE";] 
VARIABLE ALFANUMERICA 

Con esta sentencia sólo se pue- 
de introducir una variable. Si quie- 
res introducir varias variables de- 
berás utilizar la sentencia LINE IN- 
PUT tantas veces como variablesj 
tengas. Un ejemplo de utilización 
de LINE INPUT es el siguiente: 

10 LINE INPUT "Dirección";D$ 

a lo que ahora sí podrás respon- 
der: 

Calle del Pez, 15 

La razón de esto es que cuando 
el intérprete BASIC se encuentra 
con esta sentencia, asigna a la va- 
riable absolutamente todos los ca- 
racteres que se intoduzcan hasta 
que se pulsa la tecla (RETURN) 
(retorno de carro). Como pudiste 
ver en el artículo sobre ficheros de 
acceso secuencial que publica- 
mos en MSX de Noviembre esta 
setencia es útil para leer una línea 
de texto procedente de un fichero 
en cinta o en disco. La sentencia: 

LINE INPUT *1,A$ 



basic 



recoge del fichero wl todos los ca- 
racteres ASCII que encuentre has- 
ta que lea un código de retorno de 
carro (código 13). 

Veamos ahora para qué sirve la 
sentencia INPUT$, que tiene la for- 
ma: 

VARIABLE ALFANUMERICA= 
INPUT$(N) 

Aquí el intérprete BASIC espe- 
rad hasta que se pulsen tantos ca- 
racteres como indica el número N 
(que también puede ser una varia- 
ble), y los asigna a la variable alfa- 
numérica situada a la izquierda 
del signo igual. Un ejemplo de uti- 
lización de INPUT$ es el siguiente: 

10 INPUT "¿HAS 

TERMINADO... S/N?" 

20 A$MNPUT$(1) 

30 IF A$="S" OR A$="s" 
THE END 

40 GOTO 10 

aquí el intérprete escribe el men- 
saje de la línea 10 y espera a que 
pulses una tecla. Si la tecla pulsa- 
da es la S (mayúscula o minúscu- 



la), el programa terminará con la 
sentencia END de la línea a 30 y si 
pulsas cualquier otra tecla volverá 
a aparecer el mensaje de la línea 
10. INPUT$ te permite además 
asignar caracteres especiales a 
una variable. El siguiente progra- 
ma te da como salida la tecla que 
has pulsado y el código ASCII de 
la misma de forma que si pulsas la 
tecla A mayúsculaf te da como sa- 
lida 

A 65 

y si pulsas la tecla (RETURN), te 
responde con una línea en blanco 
y el número 13. Prueba tú mismo: 

10 A$=INPUT$(1) 

20 PRINT A$;ASC(A$) 

30 GOTO 10 

Otra forma de introducir un ca- 
rácter en el ordenador es hacien- 
do uso de la sentencia INKEY$, 
que tiene la siguiente forma: 

VARIABLE ALFANUMERICA= 
INKEY$ 

Cuando el intérprete pasa por 
una sentencia INKEY$, no espera 



a que pulses alguna tecla, simple- 
mente comprueba si hay una tecla 
pulsada y si es asi, asigna el códi- 
go ASCII correspondiente a la 
misma a la variable situada a la iz- 
quierda del signo igual. Por eso, 
cuando aparece una sentencia IN- 
KEY$ suele ir acompañada de otra 
condicional, commo en el siguien- 
te ejemplo: 

10 A$=INKEY$ 

20 IF A$=" " THEN 10 

De esta forma, si no se ha pulsa- 
do ninguna tecla (es decir si en A$ 
no hay nada) se vuelve a ejecutar 
la sentencia INKEY$ hasta que se 
haya pulsado alguna. 

Haciendo uso de esta senten- 
cia, podemos también everiguar 
los códigos ASCII de todas las te- 
clas: 

10 A$=INKEY$ 

20 IF A$=" " THEN 10 
30 PRINT A$;ASC(A$) 
40 GOTO 10 

Por último, existe una forma de 
incluir los datos a utilizar por un 
programa dentro del mismo pro- 
grama, y es mediante el uso de 
líneas DATA. Supongamos que 
queremos hallar el cuadrado y la 
raíz cuadrada de 1 números. Po- 
demos utilizar el siguiente progra- 
ma: 

10 INPUT "INTRODUCE UN 

NÚMERO";A 
20 PRINT "NUMERO=";A;" 

CUADRADO=";A.A; RAIZ="; 

SQR(A) 
30 GOTO 10 

o bien este otro: 

10 RESTORE 1000 
20 READA 

30 PRINT "NUMERO=";A;" 

CUADRADO=";A.A;" 

RAIZ="; SQR(A) 
40 GOTO 20 

1000 DATA 2, 5, 9, 12, 21, 23, 
27, 34, 36, 49 

la sentencia RESTORE de la línea 
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10 quiere decir que los próximos 
datos que se van a leer son los 
que están a partir de la línea 1 000 
(restore quiere decir restablecer). 
Entonces, cada vez que el progra- 
ma pasa por la línea 20 se lee un 
nuevo dato; la primera vez se leerá 
el primer dato, la segunda el se- 
gundo... y así sucesivamente has- 
ta que se termina la lista. La línea 
DATA indica al intérprete que todo 
lo que viene a continuación en esa 
línea son datos. Por tanto, este 
programa va leyendo los datos de 
la línea 1 000 e imprime el dato, su 
cuadrado y su raíz cuadrada, para 
a continuación leer un nuevo dato. 
Al acabarse los datos, el programa 
termina con el siguiente mensaje 
de error: 

OUT OF DATA IN 20 

que quiere decir que al pasar por 
la sentencia READ de la línea 20, 
no se encuentran más datos. Esto 
se puede arreglar con un peque- 
ño bucle, ya que siempre que in- 
cluimos datos en una línea DATA 
sabemos cuántos son: 

10 RESTORE 1000 

20 FOR l%=1 TO 10 

30 READ A 

40 PRINT "NUMERO=";A;" 
CUADRADO="AA=RAIZ="' 
SQR(A) 
50 NEXT l% 

1000 DATA 2, 5, 9, 12,21,23,27, 
34, 36, 49 

Bien pues con esto está casi todo 
dicho sobre cómo introducir datos 
desde el teclado. Sólo nos resta 
hablar algo de cómo introducir 
datos procedentes de un fichero 
secuencial. En realidad la forma 
en que se hace esto es bastante 
parecida a cómo se hace desde el 
teclado. Se usan las mismas sen- 
tencias, aunque indicando, en ca- 
da caso, el número de fichero del 
que se lee. Así, la sentencia INPUT 
para leer de un fichero de acceso 



í 




secuencial es de la forma: 

INPUT w n.VARIABLE 1 
[VARIABLE 2,...] 

donde n indica el nombre del fi- 
chero abierto en la sentencia 
OPEN FOR INPUT. La diferencia 
con la sentencia INPUT para leer 
del teclado es que ahora no es 
preciso incluir ningún mensaje ya 
que al fichero en cinta no le hace 
falta que el recordemos qué es lo 
que va a leer. 

De forma parecida, la sntencia 
UNE INPUT cuando se vaa a leer 
de un fichero de acceso secuen- 
cial tiene la forma: 

LINE INPUT w n.VARIABLE 
ALFANUMERICA 

y BASIC tomará caracteres del fi- 
chero hasta que se encuentre un 



retorno de carro. 

La sentencia INPUT$ para leer 
de un fichero es ahora: 

A$=INPUT$(X, U n) 

donde X indica el número de 
caracteres a leer y n es el número 
del fichero. 

La sentencia INKEY$ no se utili- 
za con ficheros, ni, lógicamente, 
las sentencias READ.. DATA. 

Asi hemos visto todas las for- 
mas de introducir datos en el or- 
denador tanto a partir del teclado 
como de un fichero de acceso se- 
cuencial. En otro número de MSX 
' Magazine veremos todo lo relativo 
a ficheros de acceso directo en 
disco, incluyendo cómo leer datos 
y cómo escribirlos en el mismo. 

J. Antonio Feberero 
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A Y 1 WrtBe los M§K los SVI- 
318 y,syi-328 uJan-como 

gertefijpr de sonido o 
PSG el AY-3-8910. 

Seguramente es ya una de las 
facilidades qutfHfe conocen y 
usan tanto los que tienen un SVI- 
318 ó un SVI-328 como los que 
manejan un MSX ya que, aparte 



de ser una 

^xplic 
ncó en • 
revista 
sobre-el mis 
te de un orde 




s características 
en el manual, se 
meros 7 y 8 de 
ompleto artículo 
orno componen- 
dor MSX. 
Para ver eUunGiQnamiento del 
PSG a través de sus registros sin 
repetir aquí otra vez lo mismo, pt 
déis introducir en vuestxo ordená^v 
I programa r que vien$ a conti-.\^ 
ción, ú 



)UND. 



en'^ltcomando 
■ 



única diferencia en lo que al 
se refiere entre los orcjienado- 
:on norma MSX y íos£Í/l-318y 
idicaen los ports que se utili- 
zan para su conexión con el Z-80. 

Como podemos ver en la figurs 
1 del capítulo anterior los 
utilizados son tres: 

- El port 88 hex. es un port de 
salida en el que colocaremos el 
número del registro del PSG al 
que queremos acceder. 



- El port 
salida será el 
colocar en el 
anteru 
port 
eooge € 



íex., también de 
envíe el dato a 
stro señalado por 




ix. de entrada es 
contenido del re- 
que señala el port 88 hex. 
Los "proceaBientos para leer y 
escribir en los registros del PSG 




km 



r 1 w M 




Mí 





ido 






desde el BASIC, aparte del ya co- 
nocido comando SOUND son 
pues como sigue: 

10 REM Lectura del PS(a. 

20 QUT&h88 1 registro a acceder. . 

30 contenido del registro = 

!!MP(&h90) 

10 REM Escritura del PSG 
20" OUT&h88,reg;is¡tro a acceder 
30 OUT&h8c,valor a escribir 

Pero estos ports nos van a per- 
mitir hacer más*cosas que música. 
Si habéis ejecutado el programa 1 
habréis observado que no apare- 
cen los Registros 14 y 15 del chip 
de sonido, esto se debe a que di- 
chos registros son pofte de entra- 
da y salida del PSG y no están re- 
laccionados con la creación 
sonidos. 

En el primer artículo dedicado al 
SV-328 en el número 12 de la re- 
vista ya usamos el registro 1 5 para 
conmutar bancos de 'memoria. 
Vamos a ver en el siguiente apar- 
tado cómo se usa el registro 14 ó 
port A del PSG para.leer el joystick. 

A través del port A del genera- 
dor de sonidos podemos leer la in- 
formación que nos llega de los 
joysticks o palancas de mando 
conectadas a los buses laterales 
numerados como 1 y 2. Las teclas 
de movimiento del cursor, aunque 
pueden ser utilizadas como otro 
joystick, son consideradas inclui- 
das en el teclado y se manejan co- 
mo tal a través de los ports del PPI, 
de igual forma que los disparado- 
res de las palancas. 

Como en los otros registros del 
PSG la información que nos inte- 
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resa será leida mediante la colo- 
cación en el port 88 hex del núme- 
ro de registro a acceder para lue- 
go recoger en el port 90 hex la in- 
formación requerida. 

Tampoco debemos olvidar que 
en el registro 8 del PSG los bits 6 y 
7 del mismo son los que indican 
respectivamente que los ports A y 
B están dispuestos para entrada 
(bit=0) o para salida (o/f=1). Así la 
secuencia completa para leer la 
información de los joysticks que- 
da como sigue: 

10 OUT&h88,8:A=INP(&h90): 

SOUND8.&B01111 111 ANDA 
20 OUT&h88,14 
30 X=INP(&H90) 

Con lo que obtenemos en la va- 
riable «X» un número que interpre- 
taremos bit a bit como sigue: 

- Si todos los bits son 1 indica 
que los mandos 1 y 2 están en po- 
sición de reposo, o sea, que no es- 
tá accionado ninguno de los joys- 
ticks. 

- Bit = 0. El joystick 1 está ac- 
cionado hacia adelante. 

- Bit 1 = 0. El joystick 1 está ac- 



cionado hacia atrás. 

- Bit 2 = 0. El joystick 1 está ac- 
cionado a la izquierda. 

- Bit 3 = 0. El joystick 1 está ac- 
cionado hacia la derecha. 

- Bit 4 = 0. El joystick 2 está ac- 
cionado hacia adelante. 

- Bit 5 = 0. El joystick 2 está ac- 
cionado hacia atrás. 

- Bit 6 = 0. El joystick 2 está ac- 
cionado a la izquierda. 

- Bit 7 = 0. El joystick 2 está ac- 
cionado hacia la derecha. 

Hay que tener en cuenta que 
para un mismo mando pueden 
estar accionadas dos posiciones a 
la vez, con lo que el resultado será 
un accionamiento en diagonal. 

Para hacer una lectura directa 
de los disparadores del stick usa- 
remos el port &h98 que es el port 
A del PPI según la figura 1, así si 
usamos la instrucción 

10 X=INP (&h98) 

tendremos en X un número cuyos 
bits 4 y 5 indicarán el estado de los 
disparadores según el siguiente 
concepto: 

- Bit 4 = 0. Ha sido pulsado el 



disparador del stick 1 . 

- Bit 5 = 0. Ha sido pulsado el 
disparador del stick 2. 

Lectura directa del 
teclado 

El BASIC de nuestro ordenador 
tiene una instrucción que detecta 
la pulsación de una tecla, esta ins- 
trucción es 

INKEY$ 

la cual, no obstante no detecta la 
pulsación de todas las teclas exis- 
tentes como podrás comprobar si 
introduces las siguientes líneas de 
programa. 

10 A$=INKEY$:IFA$=""THEN10 
20 PRINT ASC(A$):GOTO10 

Tras pulsar 'RUN'y 'ENTER' ob- 
servarás que la pulsación de casi 
todas las teclas produce la apari- 
ción de un número en la pantalla, 
el cual es el código ASCII de dicha 
tecla. Pero hay algunas teclas que 
no producen efecto alguno (CTRL, 
SHIFT, LEFT-GRPH, SELECT, etc.), y 
no obstante dichas teclas también 



1 O ' ******SUPERS I NTE********** 

20 DIMA%(13) .'LOCATE, ,0:G0SUB150 

30 *******MOVI MIENTO DEL CURSOR******* 

40 D=STICK<0> : IFD=0THEN90 

50 IFD=1THENL0CATE33,E+2:PRINT"'9" :e=e-i : 1FE<0THENE=0 

60 ifd=5thenl0cate33,e+2: print" *":e=e+1 : ife>13thene=13 

70 l0cate33.e + 2: print "/»■ : f0ra=1t050: nexta 

80 • ******act i vac i on del bit pulsado******** 

90 n*=inkey«: ifn*=" "then40 

100 ifasc (n*x480rasc <n*> >55then40 

110 n=val<n«) : ax(e) =a% < e ) xor < 2"n ) ¡ l0cate35, e+2 : printusing "#*»** ■ { a% (e) 

120 a*=bin*(a%(e) ) : a*=string*(8-len (a*) , 48) +a«: l0cate16+2* <7-n> ,e+2 

130 printmid*(a*,8-n, 1) : sounde , a% ( e ) : g0t040 

140 '*******dibujo de pantalla************* 

150 cls:printspc(16) j "7 6 5 4 3 2 1 o" : print : f0rc=0t013: readcs 

160 locateo,c+2:printusing" m#: " jc; :printc* 

170 l0cate16,c+2:print"0 0000000 * 0":next 

180 print:print: print" cursor vertical para elegir registro" 

190 print" o a 7 para activar o desactivar bit " : return 

200 datatono a,, tono b,,tono c ruido, mezclador, volumen a, volumen b, volumen c,en 
vol . dur . , , envol . form 
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son detectadas por el ordenador. 

El medio por el que nosotros 
podemos acceder a ellas es me- 
diante una lectura directa del te- 
clado a través de los ports del PPI 
96 hex y 99 hex, y guiándonos se- 
gún la tabla de la figura 2. 

Notas a la figura 2: 

I. La Y es el número de fila y el 
valor Z es igual a 2 elevado al nú- 
mero de columna. 

II. Las dos filas inferiores se re- 
fieren al teclado numérico. 

III. Las casillas CUP, LFT, DWN 
y RGTse refieren a las teclas de di- 
rección del cursor. 

IV. Las teclas pulsadas con 
SHIFT, CTRL, etc. producen el mis- 
mo resultado que si se pulsaran 



solas por lo que cuando quera- 
mos un efecto conjunto de varias 
teclas a la vez debemos leer todas 
y cada una de las teclas implica- 
das. 

El método a seguir es el siguien- 
te: 

— Enviamos a través del port 
96 hex el número Y de la matriz de 
la figura 2 que corresponde a la fi- 
la en que está la tecla a detectar 
pero OReado con 16. 

— En el port 99 hex leemos un 
valor cuyos bits tienen una corres- 
pondencia directa con una tecla 
según la matriz de la figura 2. Ca- 
da cero que aparezca en la repre- 
sentación binaria de este valor se- 
rá una tecla pulsada. 

— Ejemplo: Queremos detectar 



las teclas pulsadas en la fila 8 de la 
figura 2. Las líneas a incluir en 
nuestro programa serán como si- 
gue: 

10 OUT&h96,80R16 
20 X=INP (&H90) 
Para ver el número en binario 
hacemos un: 

X$=aBIN$(X) :X$=STRING$ 
(8-LEN(X$),48)+X$:PRINTX$ 
con lo que veremos incluso los ce- 
ros no significativos del valor. 

Si el valor resultante es por 
ejemplo 

11010111 bin 
nos indicará que está encendida 
la tecla CAPS-LOCK y estamos 
pulsando la tecla PRINT. 

Venerando Solís 
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Desensamblador 



El presente programa es un de- 
sensamblador, ocupa unas 1 9 K, y 
puede desensamblar cualquier 
instrucción del Z-80. 

Su función más inmediata es la 
de desensamblar las rutinas del 
sistema, aunque también se pue- 
de hacer lo mismo con cualquier 
programa en código máquina que 
coloquemos por encima de la po- 
sición &HD000. 

A la hora de utilizarlo hay que te- 
ner en cuenta dos cosas: 

a) Desensamblar únicamente 
áreas de memoria que contengan 



programas en código máquina, 
no las áreas de datos que estos 
usen. 

b) Los números que van de 
&H8000 a &HFFFF se correspon- 
den con -32768 a —1 en decimal. 

Cuando el programa se ejecuta, 
pide como datos la primera y últi- 
ma dirección de la zona de me- 
moria a desensamblar, y a partir 
de ese momento irán apareciendo 
en pantalla dos columnas, la de la 
derecha contendrá los nemónicos 
y la de la izquierda la dirección en 
la que se encuentra la instrucción. 



Para detener o reanudar la eje- 
cución, utilizar la tecla de STOP. 

Pasemos ahora a ver la estruc- 
tura del programa: 

Las líneas 80-120 tienen como 
misión llamar a la rutina que deba 
tratar cada una de las instruccio- 
nes que se vayan encontrando en 
la memoria. Estas rutinas son: 

NOT (CB, ED, DD, FD) 

Trata las instrucciones que co- 
mienzan por un número distinto 
de &HCB, &HED, &HDD o &HFD. 
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En las líneas 160-200, se calcu- 
la cuál es el «DATA» correspon- 
diente. A continuación se escriben 
la dirección y el nemónico, y si es 
necesario se escribe también el 
dato o dirección al que haga refe- 
rencia la instrucción, de lo cual se 
encargan las líneas 230-720. Por 
ejemplo: JP E007. 



Líneas 1 190-1320: encontrar el 
nemónico. 

Líneas 1350-1420: calcular da- 
to o dirección que le acompañan. 



CB 

Las instrucciones que empie- 
zan por &HCB no hacen referen- 
cia a datos numéricos ni direccio- 
nes, por tanto sólo es preciso 
identificar el «DATA» que se co- 
rresponde con el contenido de la 
posición de memoria y escribir la 
dirección y el nemón.ico. 

ED 

Esta rutina es muy parecida a la 
primera, sólo se diferencia en que 
las instrucciones que se tratan 
aquí comienzan por &HED. Su es- 
tructura es la siguiente: 



DD o FD 

Las instrucciones que empie- 
zan por &HDD o &HFD son las que 
manejan los registros de índice 
«IX» e «IY». 

Esta rutina, que es la más larga 
(líneas 1 520-2950) se encarga de 
escribir directamente el nemónico 
que corresponda y los datos nu- 
méricos a los que afecte. 

Cada una de las 4 rutinas ante- 
riores es independiente de las 
otras 3 y puede ser suprimida 
siempre que no vaya a utilizarse. 

Existen dos rutinas más, una 
(líneas 2960-3000) se encarga de 
escribir los nemónicos, y la otra 
(3010-3050) escribe los datos o 
direcciones en formato hexadeci- 
mal. 

Joaquínn F. Hernández 



10 REH DESENSAHBLADQR 

28 CLS:CLEAR 288,tHD888 

38 LOCATE 11,1 : PR INT ' DESENSAHBL ADOR " 

48 LOCATE 11 ,2:PRINT"==============' 

58 LOCATE 1 ,4:PRINT" (Todos los datos nui 

éricos en hex.P 
68 LOCATE 5,8:INPUT"Dirección de conen: 

o';DI$:DI$='iH"+DI$:DI=VAL(DI$) 
78 LOCATE 5 , 1 8 : INPUT'Ult i«a dirección 
■;DF$:DF$="!(H-+DF$:DF=VALÍDF$) 
88 IF PEEK(DI) O&HCB AND PEEKIDI) OfcHED 

AND PEEKIDDO&HDD AND PEEKIDDOfcH 

FD THEN 60SUB 168 
98 IF PEEK(DI)=fcHCB THEN GOSUB 958 
188 IF PEEK(DI)=iHED THEN GOSUB 1198 
118 IF PEEK(DI)=liHDD OR PEEK(DI)=ÍHFD TH 

EN GOSUB 1528 
128 IF DDDF THEN END ELSE GOTO 80 

138 mmmimmjuimmunu 

140 'NOT(CB,ED,DDifD) 

158 'tmmummmmutmmii 

168 I=PEEK(DI) 

178 IF PEEKIDI) >Í<HCB THEN 1=1-1 
180 IF PEEK(DI) >&HDD THEN 1=1-1 
198 IF PEEKIDI) >*HED THEN 1=1-1 
200 IF PEEK(DI) >ttHFD THEN 1=1-1 



210 PR INT TAB(5);HEX$(DI); 

228 RESTORE ?68:G0SUB 2960:L=1 :SU«=8 

230 IF P£EK(BI)=iHl THEN GOSUB 3010:PR1N 

T:SUH=3:L=0 
2*0 IF PEEK (DI ) =ScH6 T HEN GOSUB 3030:PRIN 

T :SUf!=2:L=8 
250 IF PEEK<DI)=5.HE T HEN GOSUB 3030:PRIN 

T:SUÍI=2:L=0 
260 IF PEEKíDH=&H¡0 THEN GOSUB 3038:PR1 

NT:Sü«=2:L=8 
278 IF PEEK(DI)=fcHll THEN GOSUB 3818 ¡PR! 

NT:SUH=2:L=0 
288 IF PEEKíDI ) =?*H16 THEN GOSUB 3838:PRI 

NT:SUH=2:L=8 
298 IF PEEKIDI )=*H 18 THEN GOSUB 3838:PRI 

NT:SUK=2:L=0 
308 IF PEEK(D1)=*H1E THEN GOSUB 3838:PRI 

NT:SUf1=2:L=8 
318 IF PEEKIDI )=ltH28 THEN GOSUB 3830:PR1 

NT:SUH=2:L=8 
328 IF PEEK(DI)=M21 THEN GOSUB 3018:PRI 

NT:SUH=3:L=0 
338 IF PEEK(DI)=iH22 THEN 60SUB 3810:PRI 

NT") ,HL':SU«=3:L=e 
348 TF PEEK(DI)=iH26 THEN GOSUB 3838 :PRI 

NT:SUH=2:L=8 



350 
368 
378 
388 
398 
488 
418 
428 
438 
440 
458 
468 
478 
480 
490 
500 
510 
528 
538 
548 
558 
568 
578 
588 
598 
688 
618 
620 
638 



IF PEEK(DI)=iH28 

NT:5UH=2:L=8 
IF PEEK(BI)=iH2A 

NT , )":SUM=3:L=0 
IF PEEK(DI)=fcH2E 

NT:SUH=2:L=8 
IF PEEKIDI )=iH30 

NT:SUH=2:L.=8 
IF P£EK(DI)=iH31 
.NT:SUH=3:L=8 
IF PEEK(DI)=liH32 

NT , ),A":SUH=3:L= 
IF PEEK(DI)=&H36 

NT:SUH=2:L=8 
IF PEEK(DI)=iH38 

NT:SUH=2:L=8 
IF PEEK(DI)=fcH3A 

NT , ) , :SUN=3:L=0 
IF PEEK(DI)=lfH3E 

NT:SUH=2:L=0 
IF PEEK(DI)=!íHC2 

NT:SUR=3:L=8 
IF PEEK(DI)=iHC3 

NT:SUM=3:L=0 
IF PEEKIDI)=&HC4 

NT:SUH=3:L=0 
IF PEEK(DI>=fcHC6 

NT:SUH=2:L=8 
IF PEEKÍDD4HCA 

NT:SUH=3:L=8 
IF PEEKIDI >=fcHCC 

NT:SUH=3:L=0 
IF PEEK(DD=iHCD 

NT:S'J,1=3:L=8 
IF PEEK(DI)=&HCE 

NT:SUB=2:L=0 
IF PEEK (DI >=?cHD2 

NT :SUH=3:L=e 
IF PEEK(DI)=S(HD3 

NT'),A":SUR=2:L= 
IF PEEK(DI)=iHD4 

NT:SU«=3:L=8 
IF PEEK(D1)=IHD6 

NT:SUH=2:L=0 
IF PEEK(DI)=iHDA 

NT:SUH=3:L=0 
IF PEEKIDI )=fcHBB 

NT"P:SUM=2:L=0 
IF P£EK(D1)=&HDC 

NT:SUñ=3:L=8 
IF PEEKIDI)=ífHDE 

NT:SUH=2:L=0 
IF PEEK (DI ) =írHE2 

NT:SUH=3:L=0 
IF PEEKIDI )=iHE4 

NT:SUM=3:L-« 
IF PEEK(DI)=iHE6 

NT:SUH=2:L=0 



THEN GOSUB 3038 ;PRI 

THEN BOSUB 3810:PRI 

THEN GOSUB 3030 :PRI 

THEN GOSUB 3838 :PRI 

THEN GOSUB 3818:PRI 

THEN GOSUB 3Í10:PRI 


THEN GOSUB 3838 :PRI 

THEN GOSUB 3838:PRI 

THEN GOSUB 3818:PRI 

THEN GOSUB 3838 :PRI 

THEN GOSUB 3818¡PRI 

THEN GOSUB 3818 :PRI 

THEN GOSUB 3818:PRI 

THEN 6QSUB 3830:PRI 

THEN GOSUB 3818 :PRI 

THEN GOSUB 3810 :PRI 

THEN GOSUB 3010:PRI 

THEN GOSUB 3838 :PR1 

THEN GOSUB 3018 :PRI 

THEN GOSUB- 3030 :PRI 


THEN 60SÜB 3018:PR¡ 
THEN GOSUB 3838 ;PR1 
THEN GOSUB 3818:PRI 
THEN 60SUB 3838 :PRI 
THEN 60SUB 3818:PRI 
THEN GOSUB 3«38:PRI 
THEN GOSUB 3810:PRI 
THEN 60SUB 3818;PRI 
THEN GOSUB 3838 :PRI 



648 IF PEEK(DI)=&HEA THEN GOSUB 3818:PRI 

NT:SUH=3:L=8 
658 IF PEEK(DI)=MEC THEN GOSUB 3818:PRI 

NT:SUH=3:L=8 
668 IF PEEK(DI)=IHEE THEN GOSUB 3838 :PRI 

NT:SUH=2:L=8 
678 IF PEEK(DI)=iHF2 THEN GOSUB 3818:PRI 

NT:SUH=3;L=8 
688 IF PEEK(DI)=I<HF4 THEN GOSUB 3818:PRI 

NT:SUH=3:L=8 
698 IF PEEK(DI)=IHF6 THEN GOSUB 3838:PRI 

NT:SUH=2:L=8 
788 IF PEEK (DI ) =iHFA THEN GOSUB 3818 :PRI 

NT:SUH=3:L=8 
718 IF PEEK(DI)=fcHFC THEN GOSUB 3818:PRI 

NT:SUfl=3:L=« 
728 IF PEEK(DI)=&HFE THEN GOSUB 3838:PRI 

NT:SUH=2:L=8 
738 IF 1*1 THEN PRINT :DI=DI+1 ELSE DI=DI 

+SUH 
748 RETURN 

751 'ItttlDATA NOT(CB,DD,ED,FD)tttU 
768 DATA 'NOPVLD BC," , 'LD(BC) ,A",'INC 
BC'.'INC B" ,-DEC B",'LB B," ,'RLCA" , 
"EX AF,AF","ADD HL,BC" ,"LB A, (BC) " 
,'DEC BC'.'INC C","DEC C",'LD C,',' 
RRCA" 

778 DATA 'DJNZ ',*LD DE,","LD (DE),A','I 
NC DE" , "INC D",-DEC D'.'LD D,\'RLA 
','JR " , ' ADD HL ,DE" , "LD A,(DE)",'DE 
C DE" , "INC E" ,'DEC E",'LD E,',"RRA" 

788 DATA "JR NZ,","LD HL,","LD (*,"INC H 
L","INC H","DEC H","LD H, ' , 'DAA* , " J 
R Z," ,"ADD HL,HL" ,"LD HL,(","DEC HL 
","INC L" ,'DEC L","LD L/,m' 

798 DATA "JR NC,","LD SP,","LD C,"INC S 
P",'INC (HL)' ,'DEC (HL)*,"LD (HL)," 
,"SCF" ,"JR C," ,'ADD HL,SP",'LD A,(" 
,°DEC SP","INC A" ,'DEC A","LD A,'," 
CCF" 

888 DATA 'LD B,B',"LD B,C','LD B,D','LD 
B,E','LD B,H',"LD B,L" ,'LD B,(HL) " , 
'LD B,A","LD C,B',"LD C,C' t 'LD C,D' 
,'LD C,E",'lD C,H",'LD C,L',"LD C,( 
HL)',"LD C,A" 

818 DATA 'LD D,B","LD D,C","LD D,D" ,'LD 
D,E','LD D,H','LD D,L','LD D,(HL)', 
'LD D,A",'LD E,B",'LD E,C" ,'LD E,D" 
,'LD E,E' ,'LD E,H", a LD E,L" ,'LD E,( 
HL)",'LD E,A" 

828 DATA "LD H,B","LD H,C",'LD H,D",'LD 
H,E",'LD H,H","LD H,L',"LD H,IH,D" 
,"LD H,A\"LD L,B',"LD L,C',"LD L , D 
','LD L,E','LD L,H","LD L,L','LD L, 
(HD'.'LD L,A" 

838 DATA "LD <HL),B','LD (HL),C','LD (HL 
),D',"LD (HL),E','LD (LD) ,H',"LD (H 
L),L',"HALT","LD (HL),A','LD A,B",' 



LD A,C","LD A,D* ,"LD A,E','LD A,H" , 
"LD A,L','LD A,(HL)\'LD A,A" 

848 DATA "ADD A, B" ,'ADD A,C" ,'ADD A,D"," 
ADD A, E" ,'ADD A,H',"ADD A ,L" , "ADD A 
,(HL)','ADD A,A",'ADC A,B','ADC A,C 
",°ADC A,D",'ADC A,E','ADC A,H','AD 
C A,L','ADC A,(HL)",'ADC A, A" 

858 DATA 'SUB B","SUB C'.'SUB D','SUB E" 
,'SUB H'.'SUB L*,"SUB (HD'.'SUB A' 
,"SBC A,B','SBC A,C',"SBC A,D','SBC 
A,E','SBC A,H','SBC A,L','SBC A,(H 
D'.'SBC A, A' 

868 DATA 'AND B','AND C','AND D'.'AND E' 
i "AND H'.'AND L","AND (HL) ■ ,"AND A" 
,'XOR B'.'XOR C" ,"XOR D'.'XOR 
OR H" ,"XOR L" ,"XOR IHL)",'XOR A' 

878 DATA "OR B','OR C",'OR D'.'OR E'.'OR 
H'.'OR L','OR IHL)','OR A', "CP B", 
"CP C\'CP D'i'CP E",'CP H','CP L", 
'CP (HD'.'CP A' 

888 DATA "RET NZ'.'POP BC','JP NZ/.'JP 
','CALL NZ,','PUSH BC",*ADD A,","RS 
T 88", "RET ZYRETYJP Z, ",'CALL Z 
, ",'CALL ",'ADC A,','RST 88' 

898 DATA 'RET NC'.'POP DE'.'JP NC,','OUT 
(','CALL NC,",'PUSH DE', 'SUB ','RST 
18", "RET C'.'EXX'/JP C,","IN A,<" 
,'CALL C," ,"SBC A,","RST 18' 

988 DATA 'RET PO'.'POP HL'.'JP PO,','EX 
(SP),HL','CALL PO,','PUSH HL'.'AND 
",'RST 28', 'RET PE','JP (HD'.'JP P 
E,","EX DE,HL" ,'CALL PE,',"XOR ",'R 
ST 28' 

918 DATA "RET P","POP AF',"JP P,YDI'," 
CALL P,","PUSH AF","OR ",'RST 38"," 
RET H","LD SP,HL",'JP H,", "El', "CAL 
L H,',"CP ','RST 38" 

928 immtummmuiumim 

938 ' CB 

948 muummmmmitumn 

958 I=PEEK(DI+1) 

968 IF PEEK(DI + !) >ítH2F THEN 1=1-8 

978 PRINT TAB(5);HEX$(DI); 

988 RESTORE 1888:60SUB 2968:PRINT:DI=DI+ 
2 ¡RETURN 

998 'tttttDATA CBttttt 

1888 DATA "RLC B','RLC C',"RLC D",'RLC E 
",'RLC H","RLC L'.'RLC (HL)",'RLC A 
",'RRC B","RRC C",'RRC D',"RRC E"," 
RRC H',"RRC L'/RRC (HL)","RRC A" 

1818 DATA "RL 6','RL C','RL D','RL E',"R 
L H',"RL L',"RL (HL)','RL A'.'RR B" 
,"RR C U ,"RR D","RR E',"RR H","RR L" 
, RR (HD'.'RR A' 

1828 DATA "SLA B',"SLA C',"SLA D","SLA E 
",'SLA H'.'SLA L'.'SLA (HD'.'SLA A 
",'SRA B','SRA C'.'SRA D','SRA E'," 
SRA H","SRA L","SRA (HL) ' ,'SRA A" 



1838 DATA "SRL B'.'SRL C" ,'SRL D","SRL E 
",'SRL H','SRL L'.'SRL (HL) ','SRL A 



1848 DATA "BIT 8,B' 
"BIT 8,E","BIT 
8,(HL)","BIT 8 
C'.'BIT 1,D', 
IT 1,L',"BIT 1 

1858 DATA "BIT 2,B" 
"BIT 2,E','BIT 
2,(HL)',"BIT 2 
C'j'BIT 3,D',' 
IT 3,L',"BIT 3 

1868 DATA "BIT 4,B' 
'BIT 4,E','BIT 
4,(HL)',"BIT 4 
C',"BIT 5,D",' 
IT 5,L','BIT 5 

1878 DATA 'BIT 6,B" 
'BIT 6,E","BIT 
6,(HL)','BIT 6 
CYBIT 7,0',' 
IT 7,L','BIT 7 

1888 DATA 'RES 8,B" 
'RES 8,E','RES 

1, (HL)','RES I 
C'.'RES 1,D',' 
ES l.L'/RES 1 

1191 DATA "RES 2,B' 
"RES 2,E','RES 

2, (HL) , , , RES 2 
C'.'RES 3,D",' 
ES 3,L',"RES 3 

1188 DATA "RES 4,B" 
"RES 4,E",'RES 
4,(HL)",'RES 4 
C'.'RES 5,D'," 
ES 5,L',"RES 5 

1118 DATA "RES 6,B" 
"RES 6,E','RES 
6,(HL)','RES 6 
C'.'RES 7,D"," 
ES 7,L','RES 7 

1128 DATA "SET 8,B" 
"SET 8,E","SET 
8,(HL)",'SET 8 
C','SET 1,8 
ET 1,L',"SET 1 

1138 DATA "SET 2,B" 
"SET 2,E",'SET 
2,(HL)',"SET 2 
C'.'SET 3,D", 
ET 3,L','SET 3 

1148 DATA "SET 4,B" 
'SET 4,E',"SET 
4,(HL)',"SET 4 

C",'SET 5,D" 
ET 5,L","SET 5 



"BIT 8, CYBIT 8,D', 
8,H" ,"BIT 8,L',"BIT 
A", "BIT 1,B","BIT 1, 
BIT 1,E','BIT 1,H','B 
."BIT 1,A' 
2,C",'BIT 2,D', 
"BIT 2,L","BIT 



BIT 3 
(HL) 
'BIT 
4,H" 



BIT 5 
(HL) 
'BIT 
6,H' 



BIT 7 
(HL) 
'RES 
B,H" 



RES 1 
(HL) 
"RES 
2,H' 



(HL) 
'BIT 
2,H' 



A', 'BIT 3,B',"BIT 3, 



A", 'BIT 5,B',"BIT 5, 



A", 'BIT 7,B" ,-BIT 7, 



A', 'RES l.BYRES 1« 



A', 'RES 3,B','RES 3, 



RES 3 
(HL) 
'RES 
4,H' 



RES 5 
(HL) 
"RES 
6,H" 
A" 

RES 7 
(HL) 
"SET 
8,H" 
A", "SET 
SET I 
(HL) 
"SET 
2,H" 



SET 3 
(HL) 
'SET 
4,H' 



SET 5 
(HL) 



E','BIT 3,H","B 
,'BIT 3,A" 
4,C",'BIT 4,D', 
"BIT 4,L','BIT 



E" ,-BIT 5,H','B 
,'BIT 5,A' 
6,C','BIT 6,D", 
'BIT 6,L','BIT 



E' ,'BIT 7,H','B 
,'BIT 7,A' 
8,C','RES 8,D", 
'RES 8,L",'RES 



E'.'RES l.H'.'R 
,'RES 1,A' 
2,C-,"RES 2,D", 
■RES 2,L','RES 



E'.'RES 3,H','R 
,"RES 3,A' 
4,C','RES 4,D", 
•RES 4,L","RES 



A", "RES 5,B",'RES 5, 



E'.'RES 5,H',"R 
,'RES 5,A" 
6,C","RES 6,D", 
"RES 6,L","RES 
RES 7,B","RES 7, 
E'.'RES 7,H- ,-4 
,'RES 7,A' 
8,C',"SET 8,D", 
"SET 8,L","SET 
,"SET 1, 
E U ,"SET 1,H","S 
,"SET 1,A" 
2,C','SET 2,D", 
"SET 2,L","SET 
AYSET 3,B',"SET 3, 



E","SET 3,H",'S 
,"SET 3,A" 
4,C',"SET 4,D", 
'SET 4,L",»SET 



A", "SET 5,B","SET 5, 



. : ", a SET 5,H","S 
,-SET 5,A" 



■i-ií i'ii^n i njA í a-i : i 

54 MSX 



1150 DATA "SET 6,B","SET 6,C","SET 6,D", 
"SET 6,E',"SET 6,H",'SET 6,L" ,"SET 
6,(Hl) YSET 6,AySET 7,B',"SET 7, 
C" ,"SET 7,D","SET 7,E , ,'SET 7,H','S 
ET 7,L" , "SET 7,(HL)","SET 7,A" 

1 160 ****************************** 

1170 'ED 

1180 ****************************** 

1190 I=PEEK(DI+1) 

1200 IF PEEK(DI+l)>fcH3F THEN 1=1-64 
1210 IF PEEK(DI+1)>Í<H4C THEN 1=1-1 
1220 IF PEEKÍDI+1) >ttH4E THEN 1 = 1-1 
1230 IF PEEKIDI+1 )>fcH55 THEN 1=1-2 
1240 IF PEEKIDI+1) >&H5D THEN 1=1-2 
1250 IF PEEK(DI+1)>!<H66 THEN 1=1-3 
1260 IF PEEK(DI+1)>!<H6E THEN 1=1-3 
1270 IF PEEKÍDI+1 ) >fcH71 THEN 1=1-1 
1280 IF PEEKIDI+1 )>fcH77 THEN 1=1-4 
1290 IF PEEKIDI+1) >*H9F THEN 1=1-36 
1300 IF PEEKIDI+1) >fcHA7 THEN 1=1-4 
1310 IF PEEKIDI+1 DIcHAF THEN 1=1-4 
1320 IF PEEKIDI+1 )>MB7 THEN 1=1-4 
1330 PRINT TAB(5);HEX$(DI);:DI=DI+1 
1340 RESTORE 1460:6OSUB 2960:L=1 :SUH=0 
1350 IF PEEK(DI)=*H43 THEN GOSUB 3010:PR 

INT , ),BC':SUH=3:L=0 
1360 IF PEEK(DI)=IH4B THEN GOSUB 30i0:PR 

INT')*:SUN=3:L=Í 
1370 IF PEEK(DI)=*H53 THEN GOSUB 3010¡PR 

INT , ),DE , :SUH=3¡L=8 
1380 IF PEEK(DI)=([H5B THEN GOSUB 3010 :PR 

INT") a :SUIfs3stM 
1390 IF PEEK(DI)=fcH63 THEN GOSUB 3010 :PR 

INT'),HL , :SUH=3:L=0 
1408 IF PEEK(DI)=IH6B THEN GOSUB 3010:PR 

INT")":SUH=3:L=1 
1410 IF PEEKIDI)=JH73 THEN GOSUB 3010:PR 

INT , ),SP":SUH=3:L=0 
1420 IF PEEKIDD4H7B THEN GOSUB 3010:PR 

INT")":SUN=3:L=0 
1430 IF L=l THEN PRINT:DI=DI+1 ELSE DI=D 

I+SUH 
1440 RETURN 

1450 '»**Í*DATA ED***»* 

1460 DATA "IN B,(C)',"OUT (C),B","SBC HL 
,BC","LD I" ,"NE6" ,"RETN" ,"IH 0", , LD 
I,A","IN C,IC) u ,"OUT (O.C'.'ADC H 
L.BCYLD BC,(","RETI","LD R,A*,"IN 
D t (C)*,"OUT (C),D , ,"SBC HL,DE","LD 
(*,MH 1" ,"LD A.T.'IN E,(C)", n 0UT 
(C),E","ADC HL,DE',"LD DE,(","IH 2 

» 

1470 DATA "LD A,R","IN H,(C)","0UT (C),H 
","SBC HL,HL","LD (' ,"RRD* ,"IN L,IC 
)","OUT (C),L","ADC HL,HL","LD HL,( 
","RLD","IN F, 10", "SBC HL,SP*,"LD 
(","IN A,(C)yOUT (C),A","ADC HL,S 
P D , U LD SP,(" 



1480 DATA B LDI" ,"CPI" t "INI n ,-OUTI","LDD" 
,"CPD","IND","OUTD","LDIR",'CPIR n ," 
INIR" ,"OTIR u ,"LDDR U , a CPDR" .'INDR" 

OTDR" 

1490 ****************************** 

1500 'DD OR FD 

1510 ****************************** 

1520 N1=PEEK(DI) :N2=PEEK(DI+D :N3=PEEK(D 

I+2):N4=PEEK(DI+3) 
1530 PRINT TAB(5) ;HEX*(DI ) ;:DI=DI+1 
1540 IF N1=&HDD AND N2=iH8E THEN PRINT T 

AB(12);"ADC A, (IX+ n ; :BOSUB 3030:PRI 

NT")":DI=DI+2:RETURN 
1550 IF Nl=iHFD AND N2=ÍH8E THEN PRINT T 

AB(12);"ADC A,(IT+";:GOSUB 3030:PRI 

NT")':DI=DI+2:RETURN 
1560 IF Nl=íiHDD AND N2=&H86 THEN PRINT T 

AB(12);"ADD A, IIX+" ; ¡GOSUB 3030:PRI 

NT") " :DI=DI+2:RETURN 
1570 IF Nl=fcHFD AND N2=IH86 THEN PRINT T 

AB(12);'ADD A , ( IY+" ; :BOSUB 3030:PRI 

NT , )':DI=DI+2:RETURN 
1580 IF Nl=fcHDD AND N2=MA6 THEN PRINT T 

ABI12) ;"AND (IX+" ; :BOSUB 3030:PRINT 

")':DI=DI+2:RETURN 
1598 IF Nl=íiHFD AND N2=IHA6 THEN PRINT T 

ABI12) ;"AND (I Y+" ; :GOSUB 3030:PRINT 

, ) , :DI=DI+2:RETURN 
1600 IF N1=MDD AND N2=IHCB AND N4=fcH46 

THEN PRINT TABÍ12) ;"BIT 0,(IX+';:6O 

SUB 3030:PRINT , ) , :DI=DI+3:RETURN 
1610 IF N1=IHFD AND N2=iHCB AND N4=tH46 

THEN PRINT TAB(12) ;"BIT 0,(IT+ , ;:6O 

SUB 3f38:PRINT">" :DI=DI+3:RETURN 
1620 IF Nl=iHDD AND N2=iHCB AND N4=IH4E 

THEN PRINT TABC12) ;"BIT 1, (IX+ 1 j:GO 

SUB 3l3i:PRINT*)':DI=DI+3:RETURN 
1630 IF N1=IHFD AND N2=iHCB AND N4=ltH4E 

THEN PRINT TAB(12) ;"BIT 1 , <IY+- ; :60 

SUB 3§3«:PRIMT")":DI=DI+3:RETURN 
1641 IF Nl=ttHDD AND N2=VHCB AND N4=tH56 

THEN PRINT TAB(12);'BIT 2,(IX+ , ;:60 

SUB 3030:PRINT') , :DI=DI+3:RETURN 

1650 IF N1=*jHFD AND N2=*HCB AND N4=iH56 
THEN PRINT TAB(12);'BIT 2,(ir+ , ;:60 
SUB 3030:PRINT') , :DI=DI+3:RETURN 

1660 IF Nl=iHDD AND N2=IHCB AND N4=iH5E 
THEN PRINT TABC12) ;"BIT 3, I IX*' ; :G0 
SUB 303B:PRINT")':DI=DI+3:RETURN 

1670 IF Nl=liHFD AND N2=IHCB AND N4=IH5E 
THEN PRINT TAB(12);"BIT 3,(iy+";:60 
SUB 3030:PRINT')':DI=DI+3:RETURN 

1680 IF N1=IHDD AND N2=iHCB AND N4=iH66 
THEN PRINT TABÍI2) ;'BIT 4 , ( IX+" ; :B0 
SUB 3030:PRINT") , :DI=DI+3:RETURN 

1690 IF Nl=fcHFD AND N2=fcHCB AND N4=iH66 
THEN PRINT TAB(12);'BIT 4,(IT+";:60 
SUB 3030:PRINT")":DI=DI+3:RETURN 



1700 IF Nl=iHDD AND N2=iHCB AND N4=&H6E 

THEN PRINT TAB(12);"BIT 5, ÍIX+" ; :B0 

SUB 3030:PRINT')*:DI=DI+3:RETURN 
1710 IF Nl=liHFD AND N2=iHCB AND N4=iH6E 

THEN PRINT TABÍ12) ;"BIT 5,(IY+-;:B0 

SUB 3030:PRINT")":DI=DI+3:RETURN 
1720 IF NI =iHDD AND N2=iHCB AND N4=iH76 

THEN PRINT TABí 12) ;"BIT 6,(IX-+";:6D 

SUB 3030:PRINT")":DI=DI+3:RETURN 
1730 IF N1=IíHFD AND N2=&HCB AND N44H76 

THEN PRINT TAB (12) ; "BIT 6 , (IY+" ; :G0 

SUB 3030:PRINT')":DI=DI+3:RETURN 
1740 IF Nl=!cHDD AND N2=Í.HCB AND N4=iH7E 

THEN PRINT TAB(12);'BIT 7,(IX+";¡60 

SUB 3030:PRINT")":DI=DI+3:RETURN 
1750 IF Nl=fcHFD AND N2=MCB AND N4=iH7E 

THEN PRINT TAB ( 12 ) ¡"BIT 7,(IY+";:G0 

SUB 3030:PRINT n )":DI=DI+3:RETURN 
1760 IF Nl=iHDD AND N2=iHBE THEN PRINT T 

AB(12);"CP (IX+";:60SUB 3030:PRINT" 

)":DI=DI+2 ¡RETURN 
1770 IF NÍ=ítHFD AND N2=*HBE THEN PRINT T 

A6(12);"CP (IY+'jíGOSUB 3030:PRINT" 

)":DI=DI+2:RETURN 
1780 IF Nl=fcHDD AND N2=fcH35 THEN PRINT T 

AB(12);"DEC (IX+";:GOSUB 3030:PRINT 

")":DI=DI+2:RETURN 
1790 IF N1=&HFD AND N2=fcH35 THEN PRINT T 

AB(12);'DEC (ir+';:60SUB 3030:PRINT 

")*:DI=DI+2:RETURN 
1800 IF Nl=iHDD AND N2=iH9 THEN PRINT TA 

B(12);'ADD IX,BC\-DI=DI+1 ¡RETURN 
1810 IF Nl=StHDD AND N24H19 THEN PRINT T 

AB(12);"ADD IX ,DE" :DI=DI+1 :RETURN 
1820 IF Nl=iHDD AND N2=lrH29 THEN PRINT T 

AB(12) ;"ADD I X , I X " :DI=DI+1 :RETURN 
1830 IF Nl=iHDD AND N2=iH39 THEN PRINT T 

AB(12);'ADD IX, SP":DI=DI+1 ¡RETURN 
1840 IF Nl=íiHFD AND N2=IH9 THEN PRINT TA 

B(12); l ADD IT,BC":DI=DI+1 ¡RETURN 
1850 IF Nl=iHFD AND N2=iH19 THEN PRINT T 

ABÍ12) ;"ADD IT ,DE":DI=DI+1 ¡RETURN 
1860 IF N1=IHFD AND N2=iH29 THEN PRINT T 

AB(12);'ADD IY,ir¡DI=DI+l:RETURN 
1870 IF Nl=iHFD AND N2=IH39 THEN PRINT T 

ABÍ12) ;"ADD I Y ,SP" :DI=DI+1 ¡RETURN 
1880 IF Nl=iHDD AND N24H2B THEN PRINT T 

AB(12);"DEC IX" ¡DI=DI+1 ¡RETURN 
1890 IF N1=IHFD AND N2=*H2B THEN PRINT T 

AB(12) ;"DEC IT' :DI=DI+1 ¡RETURN 
1900 IF Nl=liHDD AND N2=iHE3 THEN PRINT T 

AB(12);"EX (SP) , IX" :DI=DI+1 ¡RETURN 
1910 IF Nl=iHFD AND N2=iHE3 THEN PRINT T 

AB(12) ;"EX (SP) ,IY":DI=DI+1 ¡RETURN 
1920 IF N1=WDD AND N2=ltH34 THEN PRINT T 

ABÍ12) ;"INC (IX+'j ¡GOSUB 3030 ¡PRINT 

, )':DI=DI+2:RETURN 
1930 IF Nl=iHFD AND N2=iH34 THEN PRINT T 



A8U2) ; * I NC £IY+*; :60SUB 3«38:PRINT 

*>":DI=DI+2:RETURN 
1948 IF NI =StHDD AND N2=tH23 THEN PRINT T 214* 

AB(12);"INC IX" :DI=DI + 1 :RETURN 
1958 IF Nl=lcHFD AND N2=ÍíH23 THEN PRINT T 

ABU2);"INC IT" :DI=DI+1 ¡RETURN 2158 
1968 IF N1=&HDD AND N2=iHE9 THEN PRINT T 

AEÍ12Í ;*JP UX!":DI=DI+1 rRETURN 
1978 IF N1=&HFD AND N2=*HE9 THEN PRINT T 2168 

ABü2);'JP fIY)":DI=DI+l:RETURN 
1988 IF Nl=fcHDD AND N2=iH22 THEN PRINT T 

AB(12);"L0 (";:GOSUB 3810 ¡PRINT" ) t I 2178 

X' :DI=DI+3:RETURN 
1998 IF N1=WFD AND N2=icH22 THEN PRINT T : . : 

AB(12);°LD C ; :GOSUB 3810:PRINT") ,1 2188 

r°:DI=DI+3:RETlíRN 
2888 IF Ni=!(HDD AND N2=*H77 THEN PRINT T 

AB(12);"LD (IH";:BOSUB 3838:PRINT* 2198 

l,A":DI=DI+2:RETURN 
2818 IF N1=&HDD AND N2=iH78 THEN PRINT T 

AB(12);"LD (IX+'jiBQSUB 3838sPRlNT' 2288 

i,B":BI=DI+2:RETURN 
2828 IF NMHDD AND N2=ítH?í THEN PRINT T 

AB(12);"LÜ f IX-t-" ; :SOSUB 3838:PRINT" 2218 

),C":DI=DI+2:RETURN 
2838 IF Nl=iHDD AND N2=&H72 THEN PRINT T 

AB(12);'LD (¡U";:60SUB 3838:PRINT U 2228 

!,B , :DI=BI+2:RETURN 
2848 IF N1=W AND N2=M36 THEN PRINT T 

ABÜ2);"LD til*' ;:60SUB 3838:PRINT" 2238 

),";:DI=DI+1:G0SUB 3838:PRINT:DI=D¡ 

+2 :RETURN 

2858 IF Nl=iHDD AND N2=4H73 THEN PRINT T 2248 

ABÜ2);"LD UX+V-6GSUB 3838:PRINT" 

>,E";DI=DI+2:RETURN 
2868 IF Nl=iHDD AND N2=IH74 THEN PRINT T 2258 

AB( 12) ;*LD ( IX*" ; ¡GDSÜB 3838:PRINT" 

),H":DI=DI+2:RETURN 
2878 IF N1=IHDD AND N2=iH75 THEN PRINT T 2268 

AB(12);"LD (IX+'jsGOSUB 3838:PRINT" 

>,l':DI=DI+2:RETURN 
2888 IF N1=&HFD AND N2=iH77 THEN PRINT T 2278 

AB(I2);'LD ÍIY+" ; :S0SUB 3838:PRINT' 

),A":DI=DI+2:RETURN 
2898 IF Nl=iHFD AND N2=M78 THEN PRINT T 2 28l 

AB(12);'LD (IT+";:GDSUB 3838:PRINT" 

),B":DI=DI+2:RETURN 
2188 IF N1=*HFD AND N2=IH71 THEN PRINT T 2 298 

ABÜ2);'LD ÜT*';:60SUB 3838:PRINT" 

),C':DI=DI+2:RETURN 
2118 IF Nl=liHFD AND N2=M72 THEN PRINT T 2 388 

ABÍ12) ;"LD (IT+';:GOSUB 3838:PRINT" 

),D":DI=DI+2:RETURN 
2128 IF Nl=iHFD AND N2=M36 THEN PRINT T 2318 

AB(12);"LD (U+";:BOSUB 3838:PRINT" 

) ; :DI=BI+1 :6DSÜB 3838:PRINT:DI=DI 

+2:RETURN 2328 
2138 IF Nl=iHFD AND N2=iH73 THEN PRINT T 



AB(12);'LD ÜÍ>'::SB3UB 3838:PR1NT" 

1 I E*:DI=DI+2:RETURN 

IF Nl=iHFD AND N2=iN74 THEN PRINT T 

AB(12);"LD ( IY+ D ; ¡GOSUB 3838:PRINT" 

),H':DI=DI+2:RETURN 

IF Nl=fcHFD AND N2=IH75 THEN PRINT T 

AB(12);*LD ( I Y + " ; :GQSUB 3838:PRINT" 

¡,L':DI=DI+2:RETURN 

IF Nl=fcHDB AND N2=M7E THEN PRINT T 

AB(12>;"LB A t ( IX+* ; :BOSUB 3838:PRIN 

T-) " :DI=DI+2:RETURN 

IF Nl=íiHFD AND N2=Í.H7E THEN PRINT T 

ABÍ12);"LD A , ( I Y+* ; :GOSUB 3838:PRIN 

T*)":DI=DI+2:RETURN 

IF N14HDD AND N24H46 THEN PRINT T 

AB(12);"LD B , í I X+" ; :GDSUP 3838;PIRN 

T'l^D^DI^tRETüRN 

IF N1=!(HFD AND N2=iH46 THEN PRINT T 

AB(12);"LD B,(IY+';:SOSUB 3838:PRIN 

T")":DI=DI+2:RETURN 

IF Nl=ltHDD AND N2=M4E THEN PRINT T 

AB(12);°LD C,(IX+";:6DSUB 3838:PR1N 

T")";DI=DI+2:RETÜRN 

IF Nl=iHFD AND N2=iH4E THEN PRINT T 

AB(12);"LD C,(IY+";:60SUB 3838:PRIN 

T , )":DI=DI+2:RETURN 

IF Nl=íiHDD AND N2=fcH56 THEN PRINT T 

AB(12!;"LD D,!IX+";:GOSUB 3838:PRIN 

T-í U :DI=BI+2:RETURN 

IF Nl=fcHFD AND N2=fcH56 THEN PRINT T 

AB(12);"LD D, í IY+" ; :GOSUB 3838:PRIN 

T")':DI=DI+2:RETURN 

IF Nl=dHDD AND N2=*H5E THEN PRINT T 

AB(12);"LD E,ÜX*";:6QSUB 3838:PRIN 

T')":DI=DI+2:RETURN 

IF N14HFD AND N2=IH5E THEN PRINT T 

AB(12);"LD E,(H+*;:G0SUB 3838:PRIN 

T" ) ' :DI=DI+2 :RETURN 

IF Nl=iHDD AND N2=IH66 THEN PRINT T 

AB(12);"LD H, (IX+" ; ¡60SUB 3838:PR1N 

T")":DI=DI+2;RETURN 

IF NI=iHFD AND N2=iH66 THEN PRINT T 

AB(12);'LD H, t IY+" ; :BOSüB 3838:PRIN 

T')":DI=DI+2:RETURN 

IF Nl=tiHDD AND N2=M2A THEN PRINT T 

AB(12);"LD IX, í";:GOSUB 3818:PRINT" 

) " :DI=DI+3:RETURN 

IF N1=IHFD AND N2=iH2A THEN PRINT T 
ABÍ12) ;"LD IY , ( * ; :60SU8 31Ü:PRINT' 
)• :DI=DI+3:RETURN 

IF N1=IHDD AND N2=*H21 THEN PRINT T 
AB(12);"LD IX , a ; :60SUB 3I18:PRINT:D 
I=BI+3:RETURN 

IF Nl=WO AND N2=W21 THEN PRINT T 
AB(12);'ID IT,";:60SÜB 381I:PRINT:D 
I=DI+3:RETURN 

IF Nl=irHDD AND N2=iH6E THEN PRINT T 
AB(12) ; a LD L, ; :GOSUB 3I3I:PRIN 



T")-:DI=BI+2:RETURN 
2338 IF Nl=ltHPO AND N2=kH6E THEN PRINT T 

ABU2);"LD L, í IY+" ; :80SUB 3838:PRIN 

T") ■ :DI=DI+2:RETURN 
2348 IF Nl=iHDD AND N2=iHF9 THEN PRINT T 

AB(12);"LD SP.IX" :DI=DI+1 rRETURN 
2358 IF N14HFD AND N2=iHF9 THEN PRINT T 

AB(12);"LD SP,IY":DI=DI+1 :RETURN 
2368 IF Nl=ltHDD AND N2=iHB6 THEN PRINT T 

AB(12);"0R ( IX+" ; :B0SUB 3838:PRINT" 

) " :DI=DI+2:RETURN 
2378 IF Nl=iHFD AND N24HB6 THEN PRINT T 

AB(12);"0R (IY+" ; :60SUB 383e¡PRINT" 

)":DI=DI+2:RETURN 
2388 IF Nl=iHDD AND N2=&HE1 THEN PRINT T 

A6'12);"P0P n":DI=DI+l:RETURN 
2398 IF NÍ4HFD AND N2=iHEl THEN PRINT T 

ABI12);"POP IY*:DI=DI+1:RETURN 
2488 IF Nl=iHDD AND N2=lrHE5 THEN PRINT T 

AB(12);"PUSH IX" :DI=D1+1 rRETURN 
2418 IF Nl=iHFD AND N2=iHE5 THEN PRINT T 

AB(12);"PUSH I Y" :DI=DI+1 :RETURN 
2428 IF Nl=íiHDD AND N2=iHCB AND N4=fcH86 

THEN PRINT TABt 12) ; n RES 8,(IX+";:G0 

SUB 3838:PRINT")" :DI=DI+3:RETURN 
2438 IF N1=IHFD AND N2=iHCB AND N44H86 

THEN PRINT TABU2) ¡"RES 8,(IY+";:B0 

SUB 3838:PRINT')":DI=DI+3:RETURN 
2448 IF Nl=iHDÜ AND N2=&HCB AND N4=J,H8E 

THEN PRINT TAB(12);'RES 1,(IX+";:B0 

SUB 3838:PRINT")":DI=DJ+3:RETURN 
2458 IF Nl=fcHFD AND N2=iHCB AND N4=&H8E 

THEN PRINT TAB(12);'RES 1 , ( I Y+* ; :GO 

SUB 3838:PRINT")":DI=Di+3:RETURN 
2468 IF Nl=trHDD AND N2=iHCB AND N4=iH96 

THEN rru^T TAB(12);"RES 2,UX+ , ;:60 

SUB 3íi30:PRINT" ) - :BI=DI+3 :RETURN 
2478 IF Nl=iHFD AND N2=fcHCB AND N4=iH96 

THEN PRINT TAB(12)¡'RES 2,(n+*;:60 

SUB 3838:PRINT")":DI=DI+3:RETURN 
2488 IF Nl=lrHDD AND N2=iHCB AND N4=ícH9E • 

THEN PRINT TAB(12);"RES 3,(IX+';:G0 

SUB 3830:PRINT') " :DI=DI+3 ¡RETURN 
2498 IF Nl=StHFD AND N2=iHCB AND N4=IH9E 

THEN PRINT TAB(12);'RES 3 f (IY+" ; :60 

SUB 3838:PRINT') , :DI=DI+3:RETURN 
2588 IF Nl=fcHDD AND N2=!tHCB AND N4=VHA6 

THEN PRINT TABI12);'RES 4,in+";:GO 

SUB 3838:PRINT , )":DI=DI+3:RETURN 
2518 IF Nl=iHFD AND N2=iHCB AND N4=WA6 

THEN PRINT TAB(12);"RES 4 , ÍIY+" ; :60 

SUB 3e38:PRINT')" :DI=BI+3:RETURN 
2528 IF Nl=iHDD AND N2=t<HCB AND N4=iHAE 

THEN PRINT TAB < 12) ; "RES 5,(n+"j:B0 

SUB 3838 SPRINT" ) ' :DI=DI+3 ¡RETURN 
2538 IF Nl=iHFD AND N2=ltHCB AND N4=*HAE 

THEN PRINT TAB(12);'RES 5 , ( I Y+" ; sBG 

SUB 383Í:PRINT")":DI=DI+3:RETURN 
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La Guía Lotus Para Utilizar 




La 
Guía 

Lotus 
Para 

Utilizar 




LA GUIA LOTUS PARA UTILIZAR 1-2-3 

es un libro que le enseñará paso a paso cómo 
utilizar este programa. 



CARACTERISTICAS: 

• Páginas: 300 

• Papel offset: 112 grs. 

• Tamaño: 182 x 232 mm. 

• Encuademación: Rústica-cosido 



LA GUIA LOTUS PARA UTILIZAR 1-2-3 
contiene: 

- Glosario detallado e índice de forma que 
pueda encontrar fácilmente cualquier co- 
sa que necesite. 

- Explicación de la capacidad de macros de 
la versión 2. 

- Una biblioteca básica de macros que ofre- 
ce al nuevo usuario el descubrimiento in- 
mediato y el uso eficiente de los macros, al 
mismo tiempo que aprende a programar. 



El complemento indispensable para el manual 1-2-3 



OFERTA DE LANZAMIENTO 3,950 PTAS. (IVA INCLUIDO) | 

Recorte y envíe HOY MISMO este cupón a: c/ Bravo Murillo, 377 - 28020 MADRID 

CUPON DE PEDIDO 



TAMBIEN 
LO PUEDE 
ADQUIRIR 
EN SU LIBRERIA 
HABITUAL 



SI. Envíenme el libro «LA GUIA LOTUS PARA UTILIZAR 1-2-3» al precio 
de 3.950 PTAS. 

EL IMPORTE lo abonaré: 

Con tarjeta de crédito VISA □ INTERBANK □ AMERICAN EXPRESS □ 
CONTRAREEMBOLSO □ ADJUNTO CHEQUE □ 



Número de mi tarjeta 
Fecha de caducidad . 

NOMBRE 

DIRECCION 

CIUDAD 

PROVINCIA 



Firma, 



CP. 



TELEFONO 



2541 IF N1=IHFD AND N2=IHCB AND N4=iH6 T 
HEN PRINT TAB(12);"RLC (IY+- ; :BOSUB 
3Í3f:PRINT")':DI=DI+3:RETURN 

2559 IF Nl=tHDD ANJ) N2=&HCB AND N4=ttHB6 
THEN PRINT TAB(12);"RES 6,(IXt a ;:60 
SUB 3M§:PRINT')":DI=DI+3:RETURN 

2561 IF Nl=ltHFD AND N2=IHCB AND N4=liHB6 
THEN PRINT TAB(12) ;"RES 6,(IT+";:G0 
SUB 3838:PRINT") ':DI=DI+3:RETURN 

2578 IF Nl=lrHDD AND N2=iHCB AND N4=&HBE 
THEN PRINT TABí 12) ;"RES 7,(IX+*;:G0 
SUB 3838:PRINT") ' :DI=DI+3:RETURN 

2588 IF N1=IHFD AND N2=&HCB AND N4=fcHBE 
THEN PRINT TAB(12);"RES 7 , ( I Y+" ; :G0 
SUB 3838:PRINT')":DI=DI+3:RETURN 

2598 IF N1=IHDD AND N2=tHCB AND N4=fcH16 
THEN PRINT TAB(12);'RL (IX+" ; :6DSUB 
3839:PRINT")" :DI=DI+3:RETURN 

2688 IF Nl=fcHFD AND N2=iHCB AND N4=iH16 
THEN PRINT TAB (12) ;"RL (IT+';:SDSUB 
3838:PRINT")":DI=DI+3:RETURN 

2618 IF Nl=tcHDD AND N2=iHCB AND N4=iH6 T 



HEN PRINT TAB(12);"RLC (IX+" ; :BOSUB 
3838:PRINT")":DI=DI+3:RETURN 
2628 IF Nl=tiHFD AND N2=*HCB AND N4=iH6 T 
HEN PRINT TAB(12)¡'RLC (IY+';:60SUB 
3038:PRINT-)' :DI=D!+3:RETURN 
2638 IF N1=&HDD AND N2=ícHCB AND N4=&H1E 
THEN PRINT TAB(12) ;"RR (IX+" ; :GDSUB 
3e3*:PRINT") " :DI=DI+3 :RETüRN 
2648 IF Nl=iHFD AND N2=iHCB AND N4=&H1E 
THEN PRINT TAB(12);"RR (IYfj-fiOSUB 
3838:PRINT U )':DI=DI+3:RETURN 
2658 IF Nl=ScHDD AND N2=MCB AND N4=&HE T 
HEN PRINT TAB(12);"RRC (IX+" ; :GOSUB 
3838:PRINT")":DI=DI+3:RETURN 
2668 IF N1=*HFD AND N2=iHCB AND N44HE T 
HEN PRINT TAB(12);'RRC (Ií+";:60SUB 
3838:PRINT")":DI=DI+3:RETURN 
2678 IF N1=IHDD AND N2=IH9E THEN PRINT T 
AB(12);"SBC A , ( I X+" ; :BOSUB 3838:PRI 
NT")':DI=DI+2:RETURN 
26B8 IF Nl=iHFD AND N2=iH9E THEN PRINT T 
AB(12); U SBC A,(IY+';:60SUB 3838:PRI 



NT')':DI=DI+2:RETURN 

2698 IF N1=MDD AND N2=*HCB AND N4=iHC6 
THEN PRINT TAB(12);'SET 8,(IX+";:B0 
SUB 3838:PRINT")":DI=DI+3:RETURN 

2788 IF Nl=ltHFD AND N2=iHCB AND N4=iHC6 
THEN PRINT TAB(12);"SET B.dT+'pBO 
SUB 3038:PRINT") " :DI=DI +3 :RETURN . 

2718 IF Nl=iHDD AND N2=ttHCB AND N4=&HCE 
THEN PRINT TAB(12);*SET 1 , < I X+" ; :BO 
SUB 3838:PRINT')':DI=DI+3:RETURN 

2728 IF Nl=ltHFD AND N2=fcHCB AND N4=MCE 
THEN PRINT TAB(12) ;"SET l,(IT+';:GO 
SUB 3838:PRINT")':DI=DI+3:RETURN 

2738 IF Nl=iHDD AND N2=iHCB AND N4=StHD6 
THEN PRINT TAB(12í ;"SET 2, (IX+- ; sBO 
SUB 383B:PRINT") " :DI=DI+3 :RETURN 

2748 IF Nl=ttHFD AND N2=fcHCB AND N4=*HD6 
THEN PRINT TAB(12);"SET 2, (IY+" ;:SO 
SUB 3838:PRINT") " :DI=DI*3 :RETURN 

2758 IF N14HDD AND N2=lcHCB AND N4=ttHDE 
THEN PRINT TAB(12>;"SET 3,(n+';:B0 
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SUB 3838:PRINT") ":D1=DI+3:RETURN 

2768 IF N1=MFD AND N2=írHCB AND N4=IHDE 
THEN PRINT TABÜ2);'SET 3,(IT+";:60 
SUB 3838 : PR I NT " ) ■ :D I =D I +3 -.RETURN 

2778 IF N14HDD AND N2=iHCB AND N4=iHE6 
THEN PRINT TAB(12)j'SET 4,(IX* , ;:G0 
SUB 3§3Í:PRINT") " :DI=DI*3:RETURN 

2788 IF N1=MFD AND N2=&HCB AND N4=&HE6 
THEN PRINT TAB(12);"SET 4 , ( I Y+" ; :B0 
SUB 3838:PRINT")":DI=DI+3:RETURN 

2798 IF Nl=iHDD AND N2=fcHCB AND N4=iHEE 
THEN PRINT TAB(12);*SET 5, (IX+" ; :B0 
SUB 3838:PRINT , )":DI=DI+3:RETURN 

2880 IF Nl=fcHFD AND N2=iHCB AND N4=iHEE 
THEN PRINT TABI12) ;"SET 5,(IT+";:B0 
SUB 3838 : PR I NT ■ ) ■ :D I =D I +3 : RETURN 

2810 IF Nl=ltHDD AND N2=iHCB AND N4=iHF6 
THEN PRINT TAB(12);"SET 6,(IX+";:S0 
SUB 3830:PRINT'P:DI=DI+3:RETURN 

2820 IF N1=I(HFD AND N2=iHCB AND N4=Í,HF6 
THEN PRINT TABI12) ;°SET 6, í IY+" ; :B0 
SUB 3030:PRINT"1':DI=DI+3:RETURN 

2830 IF Nl=fcHDD AND N2=&HCB AND N4=iHFE 



THEN PRINT TABI12) |»SET 7 , ( I X+- ; :S0 
SUB 3838sPRINT") 1 :DI=DI +3 ¡RETURN 

2840 IF Nl=fcHFD AND N2=fcHCB AND N4=fcHFE 
THEN PRINT TABU2) ;"SET 7,(IY+";:G0 
SUB 3830:PRINT , ) , :DI=DI+3:RETURN 

2850 IF Nl=!rHDD AND N2=&HCB AND N4=&H26 
THEN PRINT TAB(12);"SLA ( IX+" ; :BOSU 
B 3030:PRINT')":DI=DI+3:RETURN 

2860 IF Nl=i,HFü AND N24HCB AND N4=ttH26 
THEN PRINT TABU2);"SLA (IY+- ; :BOSU 
B 3830:PRINT") D :DI=DI+3:RETURN 

2870 IF Nl=íiHDD AND N2=iHCB AND N4=&H2E 
THEN PRINT TABU2) ;'SRA (IX+* ; :BOSU 
B 3030:PRINT")":DI=DI+3:RETURN 

2880 IF N1=&HFD AND N2=ícHCB AND N4=fcH2E 
THEN PRINT TABU2) ;"SRA ( IY+" ; :60SU 
B 3030:PRINT')":DI=DI+3:RETURN 

2898 IF Nl=iHDD AND N2=tHCB AND N4=M3E 
THEN PRINT TAB(12);'SRL ( I X+" ; :GOSU 
B 3030:PRINT*)':DI=DI+3:RETURN 

2900 IF Nl=irHFD AND N2=IHCB AND N4=ttH3E 
THEN PRINT TAB(12);"SRL (IY+";:60SU 
B 3030:PRINT")":DI=DI+3:RETURN 



2918 IF Nl=iHDD AND N2=iH96 THEN PRINT T 

AB(12);"SUB ( IX+" ; :BOSUB 3838:PRINT 

")":DI=DI+2:RETURN 
2928 IF NI =ltHFD AND N2=IH96 THEN PRINT T 

AB(12);"SUB (IT+";:GOSUB 3038:PRINT 

") " :DI=DI+2:RETURN 
2938 IF N14HDD AND N2=&HAE THEN PRINT T 

AB(12);"X0R (n+'¡:GOSUB 3838:PRINT 

") " :DI=DI+2:RETURN 
2948 IF Nl=iHFD AND N2=iHAE THEN PRINT T 

AB(12);*X0R (IU';:GOSUB 3838:PRINT 

■)" :DI=DI+2:RETURN 
2958 RETURN 
2968 FOR J=8 TO I 
2978 READ 1$ 
2988 NEXT J 

2998 PRINT TAB(12);I$; 
3888 RETURN 

3818 IF PEEK(DH2K=MF THEN PRINT'8'; 

3828 PRINT HEXf (PEEK (DI+2) ) ; 

3838 IF PEEK(DI*1X=IHF THEN PRINT'8'; 

3848 PRINT HEX$(PEEK(DI*D); 

3858 RETURN 




disponemos de 

TAPAS ESPECIALES 

parce sus ejemplares 




SIN NECESIDAD DE ENCUADERNACION 



^CÍOVJÑÍDÁD 



Para hacer su pedido, rellene este cupón HOY MISMO 

y envíelo a: MSX MAGAZINE 
Bravo Murlllo, 377 Tel.: 733 79 69 - 28020 MADRID 



Ruego me envíen ... tapas para la encuademación de mis ejemplares de 
MSX MAGAZINE. al precio de 650 pts más gastos de envió. 
El importe lo abonaré 

D POR CHEQUEO CONTRA REEMBOLSO □ CON MI TRAJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA □ INTERBANK 

Número de mi tarjeta: 

Fecha de caducidad Firma 



NOMBRE 



(en cada tomo se pueden encuadernar 6 números) 



| DIRECCION 

CIUDAD CP 

PROVINCIA 



Código 
máquina 

MSX 




'orno comentábamos en el 
jnúmero anterior, vamos a 
'continuar centrándonos en 
el análisis de problemas sencillos 
para ver cómo se llega, desbezán- 
dolos poco a poco, a su solución. 

En esta ocasión el problema 
que os proponemos es el diseño 
de una rutina que multiplique dos 
números. Para no complicar en 
exceso la cuestión, vamos a limi- 
tarnos a multiplicar dos números 
enteros (esto es, sin decimales) 
para obtener otro número entero. 

El análisis 

Dado que desde nuestra más 
tierna infancia aprendemos las 
operaciones matemáticas bási- 
cas, llega un momento en que ías 
realizamos de forma automática. 
Por ello, este problema reviste una 
dificultad algo especial, ya que de- 
bemos descubrir cómo hacemos 



algo que ya hemos incorporado a 
nuestras costumbres rutinarias. 

Veamos un ejemplo: 350 x 
128. Normalmente, para multipli- 
car estos dos números, colocaría- 
mos 350 arriba y 1 28 abajo, y pro- 
cederíamos así: ocho por cero, 
cero; ocho por cinco cuarenta (ce- 
ro, y me llevo cuatro); ocho por tres 
veinticuatro y cuatro veintiocho. 
De este modo obtenemos una pri- 
mera línea con el número 2800. 

A continuación procedemos 
con el dos, pero hay que destacar 
que los resultados comenzamos a 
escribirlos UNA POSICION HACIA 
LA IZQUIERDA. Así, haríamos: dos 
por cero, cero (y colocamos el ce- 
ro DEBAJO DEL SEGUNDO CERO 
POR LA DERECHA); dos por cinco 
diez y me llevo una (y colocamos 
el cero DEBAJO DEL OCHO); dos 
por tres seis y una siete (y coloca- 
mos el siete DEBAJO DEL DOS). 
Dado que, una vez terminada la 
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multiplicación, vamos a sumar los 
tres parciales obtenidos, pero es- 
tado el segundo desplazado un 
lugar a la izquierda y el segundo 
dos lugares a la izquierda, lo que 
en realidad hacemos es la si- 
guiente operación: 

(350 x 8)+(350 x 20)+(350 x 100) 

Podéis comprobarlo realizando 
esta operación y comparando con 
el resultado obtenido mediante la 
multiplicación habitual. 

Hemos de realizar una observa- 
ción, aunque muchos ya se ha- 
brán dado cuenta de la importan- 
cia de este detalle: si un número 
decimal lo desplazamos un lugar 
a la izquierda, rellenando por la 
derecha con un cero, obtenemos 
el mismo número multiplicado por 
diez. Por ejemplo, 1 452, al despla- 
zarlo a la izquierda y colocar un 
cero a la derecha, se convierte en 
14520 = 1452 x 10. 

Esto mismo, trasladado al mun- 
do de los números binarios, signi- 
fica que al rotar un número a la iz- 
quierda y rellenar por la derecha 
con. ceros lo multiplicamos por 
dos. Por ejemplo, el número bina- 
rio 00101 100 = 44, al rotarlo a la 
derecha se convierte en 
01 01 1 000 = 88. La importancia de 
esta observación reside en que el 
Z80 posee la instrucción genérica 
RL r, donde r es un registro de 8 
bits (A, B, C, D, E, H, L) y RL es la 
abreviatura de Rotabie Left (Rotar 
a la izquierda), que realiza justa- 
mente esa operación: rotar el con- 
tenido del registro a la izquierda. 
Aunque por la derecha no rellena- 
mos con ceros, sino con el conte- 
nido del CARRY, veremos que en 
este caso no nos importa real- 
mente con qué rellenemos. 

Hay que tener en cuenta que, al 
trabajar con el sistema de nume- 
ración binario, la multiplicación se 
reduce a dos casos de suma: si en 
el multiplicador tenemos un uno, 
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sumamos el multiplicando tal cual 
y si tenemos un cero no lo suma- 
mos. Por ejemplo, 0100 x0110: 
0100 
X 0110 



0000 
0100 
0100 
0000 + 



0011000 

Por tanto, nuestra rutina se va a 
limitar a ir rotando el multiplicador 
a la izquierda y examinando el 
CARRY. Si el CARRY está activado 
es que hemos topado con un uno, 
y sumamos el multiplicando (re- 
gistro DE) al resultado (registro 
HL). Como veis, vamos sumando 
cada resultado parcial según lo 
obtenemos, ya que si no sería ne- 
cesario ir guardando en memoria 
todos los parciales para luego su- 
marlos. 

Tal vez os extrañe la instrucción 
ADD HL,HL. A primera vista no tie- 
ne sentido sumar el resultado a si 
mismo, pero hay que tener en 
cuenta que sumar un número a sí 
mismo es multiplicarlo por dos, y 
como ya hemos comentado, en 
numeración binaria multiplicar por 
dos es lo mismo que rotar a la iz- 
quierda una posición. Por tanto, la 
función de la instrucción ADD 
HL.HL es rotar a la izquierda el re- 
sultado. Esto se debe a que, para 
simplificar y hacer más rápida la 
rutina, hemos invertido el proceso 
normal de la multiplicación, y en 
lugar de comenzar a multiplicar 
considerando el multiplicador de 
derecha a izquierda, lo hacemos 
de izquierda a derecha. 

La función USR 

Hay algunas peculiaridades de 
esta función que merece la pena 
comentar con detalle. Esta fun- 
ción, como ya sabréis, nos permite 




liZi CLEAR 2®0,SíHF1FF 
2iZl FOR D«0 TO 102 
30 READ A* 

40 POKE S<HF200+D,v'AL<"S<H"+A*) 
50 S=S+VAL ( "Sd-T+A*) 
60 NEXT D 

70 IF S=9474 THEN 640 

80 PRI NT "ERROR EN LOS DATAS" 

90 STOP 

100 DATA 3A,63,F6: 
110 DATA FE, 02: 
120 DATA 20,25: 
130 DATA 2A,F8,F7: 
140 DATA 5E 



150 DATA 23 
160 DATA 56 



REM LD A , (TIPO) 
REM CP 02H 
REM JR NZ, ERROR 1 
REM LD HL , (LOO 
REM LD E, (HL) 
REM INC HL 
REM LD D, (HL) 
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ejecutar rutinas en código máqui- 
na. Además, podemos transmitirle 
a la rutina un parámetro (el que 
colocamos entre paréntesis al lla- 
mar a la función), y ésta nos puede 
devolver también un valor. En am- 
bos casos se tratará de números 
enteros. 

¿Y qué ocurre si queremos en- 
viar a la rutina más de un paráme- 
tro? Pues muy sencillo: basta con 
preparar una matriz con los pará- 
metros a enviar y proporcionarle a 
nuestra subrutina la dirección de 
comienzo de la matriz. Dicha di- 
rección de comienzo se obtiene 
aplicando la función VARPTR al 
primer elemento de la matriz (el 
elemento con subíndice cero). 

En el caso concreto de nuestio 
programa necesitamos enviar a la 
rutina los dos números enteros a 
multiplicar. Para ello hemos pre- 
parado la matriz entera M% (línea 
640), en la cual introducimos los 
dos números a multiplicar (líneas 
670 y 680). Luego averiguamos la 
dirección del elemento M%(0) 
(línea 690), que es el valor que le 
proporcionamos a nuestra rutina 
cuando la llamamos (línea 810). 

Examinando el listado ensam- 
blador que encontraréis en los 
REM del cargador BASIC, vemos 
que al principio verificamos el tipo 
de parámetro que recibe la rutina. 
Como las direcciones de memoria 
son siempre números enteros, si- 
no se trata de un número entero se 
produce el mensaje de error «PA- 
RAMETRO ILEGAL». A continua- 
ción cargamos el parámetro (que 
es la dirección de comienzo de la 
matriz) en HL, y lo utilizamos como 
puntero para cargar los números a 
multiplicar en DE y en el falso par 
de registros AC. Luego inicializa- 
mos el registro B con 1 6 (1 OH). Uti- 
lizamos este registro como conta- 
dor del número de desplazamien- 
tos a realizar, o lo que es lo mismo, 



170 


DATA 


23 : 




REM 


INC HL 


180 


DATA 


4E : 




REM 


LD C , (HL) 


190 


DATA 


23 : 




REM 


INC HL 


200 


DATA 


7E : 




REM 


LD A , (HL) 


210 


DATA 


06,10: 




REM 


LD B,10H 


220 


DATA 


21 ,00 ,00 




REM 


LD HL,0000H 


230 








REM 


LAZOl 


240 


DATA 


29: 




REM 


ADD HL,HL 


250 


DATA 


38, 1A: 




REM 


JR CERRQR2 


260 


DATA 


CB,11 : 




REM 


RL C 


270 


DATA 


17: 




REM 


RLA 


280 


DATA 


30 ,03 : 




REM 


JR NC . S I GUE 


290 


DATA 


19: 




REM 


ADD HL , DE 


300 


DATA 


38 , 12 : 




REM 


JR C,ERR0R2 


310 








REM 


SIGUE 


320 


DATA 


10 ,F3 : 




REM 


DJNZ LAZÜ1 


330 


DATA 


3E,02: 




REM 


LD A,02H 


340 


DATA 


32,63,F6 




REM 


LD (TIPO) , A 


350 


DATA 


22 ,F8 ,F7 




REM 


LD (LOO .HL 


360 


DATA 


C9 : 




REM 


RET 


370 








REM 


ERROR 1 


380 


DATA 


21 ,44 ,F2 


■ 


REM 


LD Hl TFXTm 


390 


DATA 


CD ,3A .F2 




REM 

i \ i — i i 


TAI 1 PRTNT 

w HLL 1 í \ 1 IN | 


400 


DATA 


C9 : 




REM 


RFT 


410 








RFM 


FRRnR'9 


420 


DATA 


21 ,í=¡6 ,F2 




REM 


1 Ti Hl TFVTn? 


430 


DATA 


CD ,3A ,F2 


a 


REM 


CAL L PRINT 


440 


DATA 


C9 : 




REM 


RET 


450 








REM 


PR I NT 


460 


DATA 


7E: 




REM 


LD A , (HL) 


470 


DATA 


CD,A2,00 

/ 7 


m 


REM 


CALL 00A2H 


480 


DATA 


FE ,0A : 




REM 


CP 0AH 


490 


DATA 


C8: 




REM 


RET Z 


500 


DATA 


23 : 




REM 


INC HL 


510 


DATA 


18 ,F6: 




REM 


JR PRINT 


520 








REM 


TEXTG1 


530 


DATA 


50 ,41 ,52 


,41 


:REM 


DB ' PARA ' 


540 


DATA 


4D ,45 ,54 


,52 


:REM 


DB ' METR * 


550 


DATA 


4F ,20 ,49 


,4C:REM 


DB 'O IL' 


560 


DATA 


45,47,41 


,4C 


:REM 


DB ' EGAL ' 


570 


DATA 


0D , 0A : 




REM 


DB 0DH ,0AH 


580 








REM 


TEXT02 


590 


DATA 


53,4F,42 


,52 


:REM 


DB 'SÜBR' 


600 


DATA 


45,50,41 


,53 


:REM 


DB 'EPAS' 


610 


DATA 


41 ,4D,49 


,45 


:REM 


DB ' AM I E ' 


620 


DATA 


4E,54,4F 


■ 


REM 


DB ' NTG' 


630 


DATA 


0D ,0A : 




REM 


DB 0DH ,0AH 


640 


DIM M'/. (2) 








650 


DEF FN Cl (X)=- 


-<X<32768! ) *X-(X>=327 
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código máquina 



del número de bits del multiplica- 
dor. 

El resto de la rutina ya lo hemos 
comentado, excepto el final. Una 
vez completada la multiplicación, 
y si no se ha producido ningún 
error de sobrepasamiento (error 
que se produce si el producto ob- 
tenido necesita más de dieciséis 
bits), se coloca el resultado en las 
direcciones F7F8H y F7F9H (línea 
350) e informamos al BASIC que 
le devolvemos un valor entero in- 
troduciendo 02H en la dirección 
F663H (líneas 330 y 340). El resto 
del programa lo forman las rutinas 
de error. Ambas cargan en HL la 
dirección de comienzo del corres- 
pondiente mensaje de error y lla- 
man a la rutina de impresión 
PRINT. 



68! ) * (X-65536! ) 
66IZI DEF FN C2 ( X ) =- ( X >=0 ) * X- ( X<0) * <65í 
6!+X) 

670 M"¿(0)=FN Cl ( 10000) 
68IZI M'Á (1)=FN Cl (4) 
6913 AX=VARPTR(M"/ (0) ) 
7IZIIZI DEF USR=&HF200 
710 CLS 

728 PRINT ".EJEMPLO" 
730 PRINT 

740 PRINT "PRODUCTO DE 10000 Y 4" 
750 PRINT 

760 PRINT "POR BASIC" 

770 PRINT" 10000 X 4 ="10000*4 

780 PRINT 

790 PRINT "POR CODIGO MAQUINA" 
800 PRINT" 10000 X 4 =" ; 
810 PRINT FN C2(USR(A%)) 
820 PRINT 
830 END 




I BARCELONA 
MODULOS I (93)3014700 




• VENDO ampliación de me- 
moria MSX de 16K, semi-nueva 
de Sony por 5.000 ptas. Llamar 
a José al Tel. : (9 1 ) 255 05 56 de 
22 a 23 horas. 

• VENDO dos Hit Bit de Sony. 
Uno de 16K y otro de 64K. Uni- 
dad, diskettes, manuales, re- 
vistas, cables y programas. Es- 
cribir a José Búa González. 
Apartado 78, Boiro (La Coruña) 
15931 o llamar al Tel.: (981) 24 
42 74. 

• SE CAMBIAN toda clase de 
programas en cinta. Escribir a 
Santiago Alvarez Gómez. José 
Antonio, 55. Chantada (Lugo) 
27500. 

• INTERCAMBIO programas 
de juegos, educativos, utilida- 
des y gestión. Escribir a Car- 
melo González García. Indus- 
trias, 34, 5-C. Valladolid 47005, 



o llamar al Tel.: (983) 29 45 92. 

• VENDO ordenador Philips 
VG-8010, con varios progra- 
mas y 25 revistas, todo por 
25.000 ptas. Llamar a partir de 
las 18h. al Tel.: (967) 25 00 52 o 
escribir a Tomás García. 
Mayor, 1. Pozo-Cañada (Alba- 
cete). 

• INTERCAMBIO programas 
de MSX. Escribir a Javier Me- 
sanza. Perú, 10, 3-1. Vitoria 
(Alava) o llamar al Tel. : (964) 24 
44 70. 

• INTERCAMBIO programas 
de MSX. Escribir a Leoncio 
Muñoz Sánchez. Polígono Ca- 
nyelles, bloque C-ll, bajo. 
08033 Barcelona. 

• INTERCAMBIO programas. 
Escribir a José R. García. Ca- 
rretera, 27, 1 88 1 1 Zújar (Grana- 
da) o llamar al Tel.: 71 61 61. 



• COMPRO programas de RT- 
TY-CW y lo relacionado con 
radioaficionados para MSX. In- 
tercambio toda clase de pro- 
gramas. Escribir a Alejandro 
García. Avda. Hilario Ruis, 46. 
15621 Cabañas (La Coruña). 

• INTERCAMBIO programas 
e información sobre lenguaje 
Código Máquina para SVI-328. 
Escribir a Raúl de Frutos Tena. 
La Gavilla, 7, bajo B. 470145 
Valladolid. 

• INTERCAMBIO programas. 
Escribir a Fernando Alvarez 
Reguant. Avda. Santa Bárbara, 
41. 08260 Suria (Barcelona). 

• SI TE INTERESA el intercam- 
bio de programas, revistas, ac- 
cesorios, etc. Escribe a Fer- 
nando Zúñiga Torrecilla. Ba- 
rrio de Nuestra Señora 32, 2-D. 
50007 Zaragoza. 



ANUNCIOS GRATUITOS 



Todos los anuncios (compras, ventas, cambios o comunicaciones de clubs de usuarios, etc ) que van en esla sección, 
deben tener un máximo de cuarenta palabras Con el fin de facilitar la transcripción de los anuncios hemos recuadrado 
cuarenta espacios para que en cada uno vaya una palabra Después, recortar y mandar a 

ANUNCIOS GRATUITOS 

C/ Bravo Murillo, 377. 5 A 
28020 MADRID 
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Rincón 

del lecton 



¿PASCAL PARA MSX? 

Este año voy a empezar a es- 
tudiar Informática en la Univer- 
sidad de Murcia, pero no puedo 
asistir habitualmente a las cla- 
ses por razones que no vienen al 
caso. El problema es que poseo 
un Philips MSX, pero resulta que 
este año se va a trabajar con 
PASCAL, mientras que el año 
pasado se dio BASIC. 

Mi pregunta es: ¿está el MSX 
capacitado para leer PASCAL o 
existe algún medio para hacer 
que mi ordenador lo pueda in- 
terpretar? 

Alfredo Roldán Mazón 
Murcia 

Los MSX pueden trabajar con 
los lenguajes de programación 
más diversos, siempre y cuando, 
claro está, que poseamos los 
compiladores apropiados para el 
caso. Si tienes un compilador 
PASCAL, no tendrás problema al- 
guno para seguir las clases desde 
casa y es más, sacarás más pro- 
vecho de la programación en casa 
que en la Universidad, donde la 
masificación de las aulas presenta 
un problema muy importante. 

SONY comercializa un compila- 
dor PASCAL para MSX. En cual- 
quier tienda especializada lo en- 
contrarás. Aunque como último 
recurso, siempre puedes recurrir a 
la casa. Su dirección es: 
Sony España, S.A. 
Sabino de Arana, 42-44 
08028 Barcelona 



DUDAS DIVERSAS 

¿Cuánto tiempo puede estar 
un monitor en color funcionan- 



do de forma continua, sin que 
éste se resienta? Esta pregunta 
viene al caso debido a que utili- 
zo mucho el ordenador? ¿El 
chip de sonido del Commodore 
64 es mejor que el de los MSX? 

Jorge Sansón-Chirinos 
Tenerife 

Actualmente, tanto los ordena- 
dores, como los periféricos están 
diseñados para soportar las con- 
diciones más extremas de uso y 
abuso a que son sometidos. Por 
esta razón, no debes preocuparte 
ni por tu ordenador ni por el moni- 
tor, ya que mientras los tengas co- 
nectados en un sitio donde circule 
aire, no habrá problemas. Particu- 
larmente, en nuestra redacción, 
hemos llegados a tener conecta- 
do un monitor y un ordenador du- 
rante más de 16 horas sin obser- 
var el más mínimo fallo. 

Referente al chip de sonido, el 
que posee el Commodore 64 es 
mejor que el de los MSX. Es más 
completo, sin embargo, es mucho 
más difícil de manejar y progra- 
mar, ya que todas las instruccio- 
nes que controlan el chip hay que 
darlas mediante POKEs. Esta es la 
ventaja que tiene MSX sobre el C- 
64. Mientras, en aquél, las instruc- 
ciones de sonido son PLAY, 
SOUND, etc., en el C-64 hay que 
introducir infinidad de POKEs (con 
el consiguiente riesgo de equivo- 
cación) para lograr algún ruido 
que se aproxime a música. 

De cualquier manera, sabiendo 
programar el chip de sonido del 
C-64, hay que decir iCHAPEAU! 



ELECCION DE 
ORDENADOR 

Me gustaría que me informa- 
sen de los precios de los orde- 



nadores MSX (64K) que existen 
en el mercado, ya que estoy in- 
teresado en comprar uno y no sé 
cuál elegir. También, me gusta- 
ría que me orientasen sobre los 
ordenadores más vendidos, los 
mejores, etc. 

Francisco Llerena Sánchez 
Badajoz 



Es difícil darte una idea concreta 
sobre los mejores ordenadores 
MSX del mercado, así como los 
más vendidos, ya que, por ejem- 
plo, si tomamos esta última carac- 
terística, hay que tener en cuenta 
la diversidad de ordenadores 
existentes dentro de una misma 
marca. 

Esto haría inclinar la balan- 
za hacia aquellos fabricantes con 
más diversidad de ordenadores 
dentro de la norma MSX, como se- 
ría el caso de Sony o Philips, sin ir 
más lejos. Cada uno de ellos tiene 
más de cuatro ordenadores, todos 
compatibles MSX y con unas cua- 
lidades muy particulares, que 
cumplen a la perfección todos los 
requisitos del estándar. Si fuera 
por precio, estamos en las mis- 
mas. Las versiones básicas, con la 
actual bajada de precios, se han 
puesto al alcance de todo el mun- 
do. 

Ahora bien, si lo que deseas 
son prestaciones, habrá que gas- 
tarse algo más. Ten en cuenta que, 
si compras algún ordenador de la I 
generación, tendrás que aportar 
algo más de dinero si lo deseas 
con unidad de disco. 

De cualquier manera, inclínate 
hacia los de la II generación si 
quieres buenas prestaciones y un 
ordenador para algo más que ju- 
gar a los marcianos. 



Catálogo de Software 

para 

ordenadores 
personales 





8E35 




Todo el Software disponible en el 
mercado reunido en un catálogo 
de 800 fichas 





1 . a ENTREGA 
550 FICHAS 
+^ICHER^ 

Resto en dos entregas 
trimestrales de 1 50 fichas 
cada una 



PRECIO TOTAL DE LA SUSCRIPCION 8.000 PTAS, 

COPIE O RECORTE ESTE CUPON DE PEDIDO 



CUPON DE PEDIDO 

SOLICITE HOY MISMO EL 
CATALOGO DE SOFTWARE A: 

infoúisjj. 

Bravo Murillo, 377, 5.° A 
28020 MADRID 

O EN CONCESIONARIOS IBM 



El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI 
TARJETA DE CREDITO □ 

Cargue 8.000 ptas. a mi tarjeta American Express □ Visa □ Interbank □ 
Número de mi tarjeta I 1 i 1 1 11 I I 

NOMBRE 

CALLE 



CIUDAD 



C. P. 



PROVINCIA 

ref: CATALOGO DE SOFTWARE 
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